Makro:Alle leeren Zeilen löschen

Aus XIMES

   Option Explicit
   
   Sub LeereZeilenEntfernen()
   'Entfernt leere Zeilen am aktiven Datenblatt
   Dim i, j As Long
   Dim c As Range
   Dim b_nixda As Boolean
   Dim ro, co As Long
   
       Selection.SpecialCells(xlCellTypeLastCell).Select
       Set c = Selection
       ro = c.Row
       co = c.Column
       For i = ro To 1 Step -1
           b_nixda = True
           For j = 1 To co
               If Cells(i, j) <> "" Then b_nixda = False
           Next
           
           If b_nixda Then Rows(c).Delete
       
       Next
       
   Cells(1, 1).Select
   
   End Sub