doppelte Zeilen löschen
01.05.2021 14:34:19
Denis
https://www.herber.de/bbs/user/145908.xlsx
Hallo zusammen,
ich bräuchte mal eure Hilfe. Ich habe oben stehende Tabelle als Beispiel. Als Teil eines größeren Makros möchte ich die doppelten Zug Nr. gelöscht bekommen. Aber es müssen beide Einträge (In der Beispieldatei die gelb markierten Reihen 4+5, sowie 14+15) gelöscht werden. Als Filter muss nach Nr. & Prod.Datum gesucht werden. Einfach nur nach der Nr. zu suchen würde Fehler mit sich bringen, da es die Nummer an verschiedenen Tagen immer wieder geben kann.
Ich habe es bereits hiermit ausprobiert, aber der Spaltenbezug ist nur auf der Nr. und somit nicht weiter hilfreich. Wie bekomme ich beide Spalten in den Vergleich mit einbezogen?
Sub DoppelteZeilenLöschen()
Dim letzteZeile As Long
Dim Zeile As Long
letzteZeile = Range("B" & Rows.Count).End(xlUp).Row
For Zeile = letzteZeile To 1 Step -1
If WorksheetFunction.CountIf(Range("B1:B" & Zeile), Range("B" & Zeile)) > 1 Then
Rows(Zeile).EntireRow.Delete
End If
Next
End Sub
Vielen Dank bereits jetzt schon einmal
