Bin um jeden Tipp dankbar
Sub DoppelteFinden()
Dim intr1 As Integer, intr2 As Integer, a() As Variant, inhalt As Variant
For intr1 = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For intr2 = intr1 + 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(intr1, 1) = Cells(intr2, 1) Then
i = i + 1
a(i) = Cells(intr1, 1)
End If
Next intr2
Next intr1
End Sub