Zweite Leere Zeile löschen

Bild

Betrifft: Zweite Leere Zeile löschen
von: Benji
Geschrieben am: 31.07.2015 06:59:29

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: Mehrfachanfrage führt zu nix!
    von: EtoPHG
    Geschrieben am: 31.07.2015 07:57:32
    Hallo Benji,
    Bitte kontrolliere die Antworten auf deine Anfrage.
    Es sind im ersten Thread mehrere Lösungen.
    Bitte stoppe das Zumüllen des Forums mit immer wieder der gleichen Anfrage!
    Gruess Hansueli

     Bild

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