Suchergebnisse

Zitat von ereza: „For a = 2 To Cells(Rows.Count, 1).End(xlUp).Row“wird nicht funktionieren, da du nach dem ersten Löschen den Zeilenindex durcheinander wirbelst. In dem Fall rückwarts laufen: For a = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 Zitat von ereza: „Prüfe ob aktuelle Zeile und darauffolgende Zeile IDENT sind“Meinst du die ganze Zeile oder nur bestimmte Zellen in der Zeile. Falls du die ganze Zeile meinst, hätte ich einen Vorschlag: Visual Basic-Quellcode (9 Zeilen)

Das Problem ist, dass sich beim Delete die Tabelle verschiebt. Wenn du die Zellen A1:A10 mit Zahlen von 1 bis 10 füllst und dann folgenden Code ausführst: Visual Basic-Quellcode (5 Zeilen)siehst du, was ich meine. Jede zweite Zahl bleibt stehen. Weil nach dem Löschen der ersten Zeile die zweite nach oben rutscht, dein Schleifenzähler aber weiterläuft. Das stört nicht, wenn man rückwärts zählt, weil dann nur die bereits verarbeiteten Zeilen verschoben werden. Zitat von Mono: „höchstwahrscheinlich…

Zitat von Schamash: „Warum nutzt du nicht die Funktion "Duplikate entfernen"“Der TE möchte ja nicht alle Duplikate entfernen, sondern hat die Bedingung einer leeren Zelle in Spalte5

Zitat von ereza: „Meinst du, dass das so korrekt ist“Ganz sauber ist dein Ansatz nicht. Vergleiche die Diskussionen in Post#5 und #7. In deinem speziellen Fall mag das zwar genau funktionieren, weil die übersprungene Zeile das bereits verglichene Duplikat ist. Und es danach nicht mehr juckt, wenn noch ein paar Zeilen überflüssigerweise durchlaufen. Die universellere und saubere Variante ist, die Zeilennummern rückwärts laufen zu lassen wie in Post #3. Wenn dir dort die Vergleichsfunktion zu kryp…