Excel 2003: jede 2. leere Zeile löschen?

Computer: Software & Programmierung Office Software
1

Hallo,

ich habe eine Datei mit 3000 Zeilen, davon steht in jeder 2. was drin.
Gibt es eine Möglichkeit, die leeren Zeilen dazwischen in einem Rutsch zu löschen?
Habe jetzt 150x ‚entf‘ + ‚Strg+Y‘ gedrückt, was ziemlich umständlich ist.
Hat jemand einen Tipp für mich?

Danke und Gruß
Marlene

2

ich habe eine Datei mit 3000 Zeilen, davon steht in jeder 2.
was drin.
Gibt es eine Möglichkeit, die leeren Zeilen dazwischen in
einem Rutsch zu löschen?
Habe jetzt 150x ‚entf‘ + ‚Strg+Y‘ gedrückt, was ziemlich
umständlich ist.

Hallo Marlene,

Alt+F11, Einfügen–Modul, Code reinkopieren, mit Cirser in den code stellen und F5 drücken.

Sub loesch()
Dim Zei As Long
For Zei = 4000 To 1 Step -1
 If Application.CountBlank(Rows(Zei)) = Columns.Count Then Rows(Zei).Delete
Next Zei
End Sub

Gruß
Reinhard

3

Hallo Marlene,
das müsste auch mit der Filterfunktion gehen. Also Spalte markieren und dann die „Leeren“ anzeigen lassen und einfach löschen. Also relativ einfach, oder habe ich vielleicht die Frage falsch verstanden?
Bis dann
Andreas