Zweite Leere Zeile löschen

Bild

Betrifft: Zweite Leere Zeile löschen
von: Benji
Geschrieben am: 30.07.2015 13:09:49

Hallo zusammen,
wie man eine leere Zeile löscht, ist mir bewusst.


      Sub LeereZeilenLoeschen()
           Dim i As Long
           Application.ScreenUpdating = False
         
           For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
              If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
                Rows(i).Delete
              End If
              If i Mod 100 = 0 Then
                Application.StatusBar = i
              End If
           Next i
         
           Application.StatusBar = False
           Application.ScreenUpdating = True
        End Sub

Ich möchte die erste leere Zeile behalten und alle weiteren löschen. Wenn zwischendrin Text ist, soller wieder die erste Leere Zeile behalten.
Vorher:

  • 1 a
    2
    3
    4 d
    5
    6 f
    7
    8
    9 b

  • Nachher:

  • 1 a
    2
    4 d
    5
    6 f
    7
    9 b

  • Zeilen 3 und 8 wurden gelöscht. Kann man dies mittels VBA umsetzen ?

    Bild

    Betrifft: AW: Zweite Leere Zeile löschen
    von: Werner
    Geschrieben am: 30.07.2015 13:13:00
    Hallo Benji,
    ein Versehen, oder warum stellt du den gleichen Beitrag nochmals ein?
    Gruß Werner

    Bild

    Betrifft: Doppelt gemoppelt (owT)
    von: EtoPHG
    Geschrieben am: 30.07.2015 13:17:35


     Bild

    Beiträge aus den Excel-Beispielen zum Thema "Zweite Leere Zeile löschen"