wer keine Ahnung von vba hat, sollte auch nicht mit "Dict" arbeiten, sondern zuerst die Basics lernen!!!!!!!
Sub Find_Doppelte()
Dim oDic As Object, ArrayData(), ArrayAusgabe()
Dim n As Long
Dim nTimer
nTimer = Timer
Set oDic = CreateObject("Scripting.Dictionary")
With Sheets("Hauptliste")
<<<<<<<<<<<< neu >>>>>>>>>
lr = cells(rows.count, "C").end(xlup).row
ArrayData = .Range("C2:C" & lr).Value2
<<<<<<<<<<< weiter >>>>>>>>>>>>>>>>
ReDim ArrayAusgabe(1 To UBound(ArrayData), 1 To 1)
For n = 1 To UBound(ArrayData)
oDic(ArrayData(n, 1)) = oDic(ArrayData(n, 1)) + 1
Next n
For n = 1 To UBound(ArrayData)
If oDic(ArrayData(n, 1)) > 1 Then ArrayAusgabe(n, 1) = "duplicate"
Next n
.Range("B2").Resize(UBound(ArrayAusgabe)) = ArrayAusgabe
End With
MsgBox "Fertig nach " & Timer - nTimer & " Sekunden"
End Sub