Mein makro sucht in gewissen Zellen nach einem Wert.
Dieser Wert ist ausschlaggebend darüber, ob eine Zeile angezeigt
werden soll oder nicht.
Die Ausführung meiens Makros dauert leider für mich zu lange, ca. 14 Sekunden.
Wie kann man dies beschleunigen?
Wer kann mir helfen?
Danke
Alex
Hier mein Makro:
Sub Zeilen()
Dim Zelle
Application.ScreenUpdating = False
For Each Zelle In Range("bi3:bi299")
ActiveSheet.Unprotect
If Zelle.Value = 2 Then
Zelle.EntireRow.Hidden = True
Else
ActiveSheet.Unprotect
Zelle.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
End Sub