leere Zeilen in einer Tabelle löschen

Häufig benötigt man ein kleines Makro, welches die leeren Zeilen einer Tabelle löscht.

Mir hilft da dieser kleine Code von Bernd Strohhäcker weiter.Option Explicit Sub DelEmptyLines() Dim i As Long ' Zeilenzähler Application.ScreenUpdating = False ' Bildschirmausgaben abschalten For i = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete Next Application.ScreenUpdating = True ' Bildschirmausgaben einschalten End Sub

Viel Spaß damit
Share on Facebook

Read more http://vba-codeschnipsel.de/leere-zeilen-in-einer-tabelle-loschen/