Duplikate entfernen
26.04.2018 16:20:59
Idence
gerade habe ich mir einen Code zurechtgebastelt, der doppelte Zeilen löscht, wenn sie direkt nacheinander auftreten. Das eigenartige ist, dass nicht alle Duplikate entfernt werden.
Wenn ich z.B. 30 gleiche Zeilen erstelle und das Makro starte, dann werden beim ersten mal z.B. 15 entfernt und stoppt dann. Deswegen muss ich das Makro erneut starten, dann werden z.B. 8 entfernt ... bis nur noch eine Zeile übrig ist.
Habe ich einen Fehler im Code oder ist das ein Excel-Fehler?
Danke im voraus.
Gruß
Idence
Sub DoppelteZeilenLoeschen()
Dim z As Integer
Dim s As Integer
Dim ZeileLoeschen As String
s = 1
z = 1
Do While Cells(z, 1) ""
Do While s