ich habe eine Liste und würde gerne die doppelten Einträge löschen nach folgender Regel:
Wenn die Werte in den Spalten D, E, F und H der jeweiligen Zeile die gleichen sind, dann lösche die doppelte Zeile. Hierbei müssen die doppelten Zeilen nicht zwangsläufig untereinander sondern irgendwo auf dem Blatt aufgelistet sein.
Hierfür habe ich ein Makro zusammengestellt, das leider nicht so will wie ich...
Hat jemand eine Idee?
Gruß
Sub DoppelteZeilenLoeschen()
Dim letzteZeile As Long
Dim Zeile As Long
letzteZeile = Range("A65536").End(xlUp).Row
For Zeile = letzteZeile To 1 Step -1
If WorksheetFunction.CountIf(Range("D:H" & Zeile), Cells(Zeile, 1)) > 1 Then
Cells(Zeile, 1).EntireRow.Delete
End If
Next
End Sub