Inhaltsverzeichnis
Leere Zeilen löschen
Die offensichtliche Möglichkeit, leere Zeilen aus einem Datensatz zu entfernen, besteht darin, die Daten einfach zu sortieren. Dadurch werden die leeren Zeilen an das Ende der Daten verschoben und „entfernt“. Aber was ist, wenn die leeren Zeilen entfernt werden sollen, die Daten jedoch nicht sortiert werden sollen? VBA.
Das folgende Makro entfernt leere Zeilen ohne Sortierung (deaktiviere die Bildschirmaktualisierung, um schneller zu gehen).
Sub DeleteBlankRows() Dim x As Long With ActiveSheet For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If WorksheetFunction.CountA(.Rows(x)) = 0 Then ActiveSheet.Rows(x).Delete End If Next End With End Sub
