Thema Datum  Von Nutzer Rating
Antwort
Rot doppelte Löschen mit Bezug auf mehrere Zellen
01.05.2021 13:20:06 Denis
Solved
01.05.2021 13:41:29 ralf_b
Solved
01.05.2021 13:45:47 Gast98652
Solved
01.05.2021 14:01:26 ralf_b
Solved
01.05.2021 14:32:34 Werner
Solved
01.05.2021 14:47:11 Denis
Solved
02.05.2021 15:11:23 Denis
Solved
01.05.2021 14:39:11 Gast24717
Solved

Ansicht des Beitrags:
Von:
Denis
Datum:
01.05.2021 13:20:06
Views:
101
Rating: Antwort:
 Nein
Thema:
doppelte Löschen mit Bezug auf mehrere Zellen
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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot doppelte Löschen mit Bezug auf mehrere Zellen
01.05.2021 13:20:06 Denis
Solved
01.05.2021 13:41:29 ralf_b
Solved
01.05.2021 13:45:47 Gast98652
Solved
01.05.2021 14:01:26 ralf_b
Solved
01.05.2021 14:32:34 Werner
Solved
01.05.2021 14:47:11 Denis
Solved
02.05.2021 15:11:23 Denis
Solved
01.05.2021 14:39:11 Gast24717
Solved