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