Ausführen des Codes dauert lange
05.03.2004 08:53:58
Michael Engelhardt
wenn ich das Excel-Sheet aktiviere, so braucht Excel ca. 30 Sekunden bis der Code ausgeführt ist. Warum dauert dies so lange? Gibt es optimierungsmöglichkeiten?
Danke für die Hilfe!
Private Sub Worksheet_Activate()
Dim Zelle
Application.ScreenUpdating = False
For Each Zelle In Range("A11:A153")
If IsError(Zelle.Value) Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next
Range("B:B").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Gruß
Michael
Anzeige