| ID |
Nr |
Prod. Datum |
Status |
Marktbereich |
| 20210421003937-O |
68308 |
02.05.2021 |
VON TPN ERHALTEN |
Chemicals and Mineral Oil |
| 20210422004278-O |
68313 |
02.05.2021 |
VON TPN ERHALTEN |
Chemicals and Mineral Oil |
| Cancel-202104220005367 |
68321 |
02.05.2021 |
BEI TPN ANGEFRAGT |
Chemicals and Mineral Oil |
| 20210420003726-O |
68321 |
02.05.2021 |
BEI TPN ANGEFRAGT |
Chemicals and Mineral Oil |
| 20210421004049-O |
68322 |
02.05.2021 |
VON TPN ERHALTEN |
Chemicals and Mineral Oil |
| 20210421003818-O |
68341 |
01.05.2021 |
VON TPN ERHALTEN |
Chemicals and Mineral Oil |
| 20210427005804-O |
68367 |
02.05.2021 |
VON TPN ERHALTEN |
Chemicals and Mineral Oil |
| 20210429006442-O |
68387 |
01.05.2021 |
VON TPN ERHALTEN |
Consumer Goods |
| Cancel-202104300008073 |
68389 |
01.05.2021 |
BEI TPN ANGEFRAGT |
Chemicals and Mineral Oil |
| 20210429006444-O |
68389 |
01.05.2021 |
VON TPN ERHALTEN |
Chemicals and Mineral Oil |
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
|