ausgeblendete Zeilen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: ausgeblendete Zeilen
von: Christoph
Geschrieben am: 16.07.2002 - 17:16:52

Hallo User

Wie kann ich in einem Tabellenblatt alle ausgeblendeten
Zeilen Löschen

Gruss Christoph


nach oben   nach unten

Re: ausgeblendete Zeilen
von: Hajo_Zi
Geschrieben am: 16.07.2002 - 18:05:55

Hallo Christoph

ich vermute mal dies ist nur per VBA möglich.


Sub Löschen()
    Dim Letzte As Long
    Dim As Long
    Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    For I = Letzte To Step -1
        If Rows(I).RowHeight = 0 Then Rows(I).Delete
    Next I
End Sub

Gruß Hajo


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "ausgeblendete Zeilen"