mit folgendem Code blende ich Zeilen aus die den Wert "0" haben.
Es funktioniert. allerdings sehr langsam.
Kann man das irgendwie beschleunigen?
Private Sub CheckBox7_Click()
Dim i As Long
With Application
.ScreenUpdating = False
'.Calculation = xlCalculationAutomatic
.EnableEvents = False
End With
'Alle ausgeblendeten Zeilen einblenden
Cells.EntireRow.Hidden = False
'leere Zeilen ausblenden
For i = 11 To 80
If Cells(i, 4).Value = "0" And Cells(i, 8).Value = "0" And Cells(i, 10).Value = "0" Then
Rows(i).Hidden = True
End If
Next i
With Application
.ScreenUpdating = True
'.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub