Jede 2. zeile löschen

Bild

Betrifft: Jede 2. zeile löschen von: Stefan Glander
Geschrieben am: 20.03.2005 17:08:48

Moin Moin Excelanier,
ich habe mal wieder ein Problem wo ich Euren Rat bräuchte.
ich habe jede menge zeilen mit Daten. Die Daten beziehe ichaus einem Logfile.
Leider sind die Daten in Zeile 1 + 2, und 3 + 4 , etc.... bis unendlich fast identisch.
wie kann ich nun, ohne jede zweite Zeile von hand zu editieren und löschen dieses problem automatisieren.
Im voraus vielen Dank
Stefan

Bild


Betrifft: AW: Jede 2. zeile löschen von: Ramses
Geschrieben am: 20.03.2005 18:37:42

Hallo

Probier mal:

Sub Del2Row()
Dim i as long
For i = Range("A65536").End(Xlup).Row to 2 step - 2
Rows(i).Delete
Next i

Gruss Rainer


Bild


Betrifft: AW: Jede 2. zeile löschen von: Stefan Glander
Geschrieben am: 20.03.2005 18:38:44

Danke dir.
Gruss
stefan


Bild


Betrifft: erledigt, Danke von: Stefan Glander
Geschrieben am: 20.03.2005 18:37:48

.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "erster, zweiter und dritter"