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

Beiträge aus den Excel-Beispielen zum Thema "autofilter field"