Ich habe in einem Tabellenabschnitt 50 Zeilen (13-62)
Nun möchte ich gerne per Knopfdruck leere Zeilen ausblenden, wenn Spalte A leer ist.
Bestenfalls die Befehlsschaltfläche ActiveX-Steuerelement.
Könntet Ihr mir bitte helfen?
VG
Private Sub ToggleButton1_Click()
Dim Bereich As Range
Set Bereich = Range("A13:A62")
If ToggleButton1 Then
If Application.CountBlank(Bereich) Then
Bereich.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End If
Else
Bereich.EntireRow.Hidden = False
End If
Set Bereich = Nothing
End Sub
Private Sub ToggleButton1_Click()
Dim Bereich As Range
Set Bereich = Range("A13:A62")
If ToggleButton1 Then
ToggleButton1.Caption = "einblenden"
If Application.CountBlank(Bereich) Then
Bereich.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End If
Else
ToggleButton1.Caption = "ausblenden"
Bereich.EntireRow.Hidden = False
End If
Set Bereich = Nothing
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen