leere Zeilen Ausblenden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: leere Zeilen Ausblenden von: Daniel
Geschrieben am: 14.04.2005 08:03:56

Hallo Forum,

ich möchte über ein Makro leere Zeilen in einer Übersicht über ein Button ausblenden und über einen weiteren Butto wieder einblenden können.
Hat jemand einen Tip für mich?

Vielen Dank.

Gruß
Daniel

Bild


Betrifft: AW: leere Zeilen Ausblenden von: Bernd G.
Geschrieben am: 14.04.2005 08:50:02

Hallo Daniel,
schau mal unter RECHERCHE nach, da gibt es viele Beispiele dazu.

Gruß
Bernd G.


Bild


Betrifft: AW: leere Zeilen Ausblenden von: wernerB
Geschrieben am: 14.04.2005 12:51:31

Hallo Daniel,

wie gefällt Dir das?

Private Sub CommandButton1_Click()
' Zeilen EINblenden
    Cells.EntireRow.Hidden = False
End Sub


Private Sub CommandButton2_Click()
' Zeilen AUSblenden
Dim laR As Long, i As Long, j As Long
    Application.ScreenUpdating = False
    j = ActiveSheet.UsedRange.Rows.Count _
      + ActiveSheet.UsedRange.Row - 1
    For i = j To 1 Step -1
      laR = i
      If Cells(i, 1).Value <> "" Then Exit For
    Next i
    For i = laR To 1 Step -1
      If WorksheetFunction.CountA(Rows(i)) = 0 Then
        Rows(i).EntireRow.Hidden = True
      End If
    Next i
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !


 Bild

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