Anzeige
Archiv - Navigation
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen löschen

Zeilen löschen
Maik
Hallo Excelfreaks,
ich möchte gern, dass gleiche Zeilen in einer Tabelle gelöscht werden und nur 1 davon stehen bleibt.
Mit meinem Code löscht er allerdings bei 3 gleichen Zeilen immer nur 1 raus und nicht 2.
For Zeile = 1 To wsBezeichnungen.Cells(Rows.Count, 1).End(xlUp).Row
If wsBezeichnungen.Cells(Zeile, 1) = wsBezeichnungen.Cells(Zeile + 1, 1) _
And wsBezeichnungen.Cells(Zeile, 3) = wsBezeichnungen.Cells(Zeile + 1, 3) And _
wsBezeichnungen.Cells(Zeile, 4) = wsBezeichnungen.Cells(Zeile + 1, 4) Then
wsBezeichnungen.Rows(Zeile).Delete
End If
Next
Vielen Dank für eure Hilfe
Maik

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Tipp: Löschen immer von unten. owT
03.12.2010 11:42:32
unten.
Zeilen löschen
03.12.2010 12:21:17
Maik
Hallo Rudi,
aber wie lösche ich den von unten?
Maik
AW: Zeilen löschen
03.12.2010 12:28:52
Rudi
Hallo,
indem du die Scheife rückwäts laufen lässt.
For Zeile = wsBezeichnungen.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
Gruß
Rudi
AW: Zeilen löschen
03.12.2010 12:32:25
Maik
Hallo Rudi,
vielen Dank, jetzt funktionierts.
Gruß
Maik
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige