Supportnet / Forum / Tabellenkalkulation

hallo zusammen, ich habe eine lange tabelle und moechte automatisch alle leeren zeilen herausloeschen. bisher mache ich dies ueber die filter funktion "blanks" und loesche diese dann manuell. aber gibt es eine elegantere moeglichkeit? gruss dirk

Hallo Dirk,

mittels Makro.
Sub Leerzeilen_loeschen()
' alle Leerzeilen löschen
Dim LoI As Long
Dim RaZeile As Range
For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Application.WorksheetFunction.CountA(Rows(LoI)) <> ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Then
If Rows(LoI).SpecialCells(xlCellTypeBlanks).Count = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI)
Else
Set RaZeile = Union(RaZeile, Rows(LoI))
End If
End If
End If
Next LoI
If Not RaZeile Is Nothing Then RaZeile.Delete
Set RaZeile = Nothing
End Sub

Gruß Hajo

hallo,
das makro funktioniert super.

nur zur wissenserweiterung, geht dies auch ueber eine formel?

gruss
dirk

Hallo Dirk,

ich bin nicht der Formelmensch. Zeilen löschen geht nicht über eine Formel. Falls Du Deine Daten ohne Leerzeilen in eine neue Tabelle übertragen möchtest ohne Leerzeilen. Dies geht bestimmt über eine Formel.

Gruß Hajo

• leere Festplattenbereiche loeschen
• mehrere Zeilen in Excel einfügen
• Bestimmte Zeilen in einer Tabelle loeschen
• Zeilen mit leeren Zellen löschen