Hallo Dirk,
ich habe da mal ein Makro geschrieben:
Sub LeereZeilenLoeschen()
’ Durchforstet alle Zellen der aktiven Spalte nach Leerstring und
’ löscht die entsprechenden Zeilen.
’ Der Cursor muß also beim Aufruf in der gewünschten Spalte stehen !
dim intZeile as integer
dim intSpalte as integer
dim intIndex as integer
intZeile = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
intSpalte = ActiveCell.Column
Application.ScreenUpdating = False
For intIndex = intZeile To 1 Step -1
Application.StatusBar = intIndex
If Cells(intIndex, intSpalte) = „“ Then
Rows(intIndex).Delete Shift:=xlUp
end if
Next intIndex
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
Grüße
Martin