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 Nr. gelöscht bekommen. Aber es müssen beide Einträge gelöscht werden. Also in dem oben stehenden Beispiel wären das die beiden Zeilen für 68321 und 68389. 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

Ich bitte um Hilfe.

Vielen Dank bereits jetzt schon einmal