Hi,
mit der Schleife ginge das so:
Cells(i, SpVorkommen) = Evaluate("=COUNTIF($C$2:$C" & i & ",$C" & i & ")")
Aber weshalb überhaupt in einer Schleife wenn es darum geht, dass das Eintragen sehr lange dauert? Trage die Formel einfach in die 1. Zelle ein und benutze dann Autofill bis zur letzten belegten Zeile.
Dim lngLetzte As Long
lngLetzte = Cells(Rows.Count, 3).End(xlUp).Row
Cells(i, SpVorkommen).Formula = "=COUNTIF($C$2:$C2,$C2)"
Cells(i, SpVorkommen).AutoFill Destination:=Range(Cells(2, SpVorkommen), Cells(lngLetzte, SpVorkommen))
Wenn du dann immer noch nur die Werte und nicht die Formel drin stehen haben möchtest, dann kannst du einfach den Bereich markieren -> Kopieren -> Einfügen -> Werte.
Bis später, Karin