Duplikate löschen mit VBA
16.01.2015 11:05:11
Chriss
ich habe mit Hilfe des Internets ein Makro zum Löschen von Duplikaten gefunden.
Leider sagt mir Excel, wenn ich das Makro dann ausführen will, dass ein Objekt erforderlich ist.
Hier mein Makro:
Sub DoppelteZeilenLöschen()
Dim letzteZeile As Long
Dim Zeile As Long
letzteZeile = Range("A65536").End(xlUp).Row
For Zeile = letzteZeile To 1 Step -1
If WorksheetsFunction.CountIf(Range("A1:A" & Zeile), Cells(Zeile, 1)) > 1 Then
Cells(Zeile, 1).EntireRow.Delete
End If
Next
End Sub
Kann mir jemand helfen? Wo ist der Fehler?