Private Sub ToggleButton1_Click()
Dim blend As Boolean
Const zellein As String = "Zellen einblenden"
Const zellaus As String = "Zellen ausblenden"
 
With ToggleButton1
If .Caption = zellein Then
.Caption = zellaus
blend = False
Else
.Caption = zellein
blend = True
End If
End With
 
Dim n As Integer
For n = 4 To 34
Rows(n).Hidden = blend
Next
End Sub