Herbers Excel-Forum - das Archiv

VBA: 1 von 2 nacheinanderfolgen L.-Zeilen löschen

Bild

Betrifft: VBA: 1 von 2 nacheinanderfolgen L.-Zeilen löschen
von: Bernd S

Geschrieben am: 23.02.2005 22:54:29
Hallo,
habe folgendes Anliegen:
Zur Aufbereitung von übernommenen Daten benutze ich ein Makro und das funktioniert eigentlich auch einwandfrei.
Nur durch die übernommene Liste kommt es vor, dass durch den Seitenumbruch mal zwei Leerzeilen nacheinander kommen. Diese bzw. eine davon lösche ich bis jetzt immer manuell.
Kennt jemand einen VBA-Code, welcher prüft, ob 2 Leerzeilen nacheinader kommen und dann eine davon löscht, bis dann der letzte Inhalt in Spalte A kommt.
Vielleicht kann mir ja jemand helfen.
Gruß
Bernd
Bild

Betrifft: AW: VBA: 1 von 2 nacheinanderfolgen L.-Zeilen löschen
von: Bert
Geschrieben am: 23.02.2005 23:24:58
Sub zwei_leer()
Dim z As Long
For z = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Application.CountA(Rows(z - 1 & ":" & z)) = 0 Then
Rows(z).Delete
End If
Next
End Sub

Bert
Bild

Betrifft: Genial - danke!!!
von: Bernd S
Geschrieben am: 23.02.2005 23:44:20
Genial - funktioniert super!!!
Danke Bert
 Bild