Private Sub ToggleButton1_Click()
Dim ende As Long
Dim zeile As Long
Dim spalte As Long
Dim raus As Boolean
Application.ScreenUpdating = False
With ToggleButton1
.Caption = "Nicht bebuchte Sachkonten sind " & IIf(.Value = True, "eingeblendet", "ausgeblendet")
.BackColor = &HC0C0C0
If .Value = True Then
ende = ActiveSheet.UsedRange.Rows.Count
For zeile = 6 To ende
raus = True
For spalte = 6 To 17
If ActiveSheet.Cells(zeile, spalte) <> 0 Then
raus = False
Exit For
End If
Next spalte
If raus = True Then ActiveSheet.Rows(zeile).EntireRow.Hidden = True
Next zeile
Else
ActiveSheet.UsedRange.EntireRow.Hidden = False
End If
End With
Application.ScreenUpdating = True
End Sub