Option Explicit
Sub ZellenEinblenden()
Rows.Hidden = False
End Sub
Sub ZellenAusblenden()
Application.ScreenUpdating = False
Dim rng As Variant
Dim R&, C&, I&, J&, K&, lJ&
Dim Sh As Object
Set Sh = Sheets(1)
rng = Sh.Range("A:A").Value
For R = LBound(rng) To UBound(rng)
For C = LBound(rng, 2) To UBound(rng, 2)
If rng(R, C) = 0 Then
I = I + 1
End If
Next
Next
For R = LBound(rng) To UBound(rng)
For C = LBound(rng, 2) To UBound(rng, 2)
If rng(R, C) = 0 Then
J = J + 1
If Not Sh.Rows(R).Hidden Then Sh.Rows(R).Hidden = True
If J >= lJ + (I / 100) Then
K = K + 1
Application.StatusBar = J & "/" & I & "|" & K & " %"
DoEvents
lJ = J
End If
Else
If Sh.Rows(R).Hidden Then Sh.Rows(R).Hidden = False
End If
Next
Next
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub