Hallo,
hier ist ein kleines Makro aus dem Buch von Bernd Held: Excel - VBA Kompendium - Mit über 1000 Makros für 2000 bis 2010.
Code:
Sub LeerZeilen_Loeschen()
'Bernd Held: Excel - VBA Kompendium - Mit über 1000 Makros für 2000 bis 2010
Dim Zeile As Long
Dim ZeileMax As Long
Sheets("Tabelle1").Activate
ZeileMax = ActiveSheet.UsedRange.Rows.Count
For Zeile = ZeileMax To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(Zeile)) = 0 Then
Rows(Zeile).Delete
End If
Next Zeile
End Sub
Man müßte es so anpassen, daß lediglich ein markierter Bereich bearbeitet wird und nicht die ganze Tabelle...
Vielleicht kann hier jemand dabei helfen?
