Makro-viel zu lange Laufzeit?!
12.08.2004 14:51:44
Rainer
von einem Community-Mitglied (nochmal vielen Dank) habe ich folgendes Makro bekommen. Seit dem Einbau ist die Datei sehr langsam und die Berechnung dauert fast 1 Minute, obwohl sich das Makro doch nur auf 123 Zeilen in einem Arbeitsblatt beziehen soll. Kann das Makro optimiert werden oder ist eine Laufzeit für die Berechnung in dieser Größenordnung normal?
Private Sub Worksheet_Calculate()
Dim Zelle
Application.ScreenUpdating = False
For Each Zelle In Range("b10:b133")
If Zelle.Value < 1 Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub
Danke schon im voraus.
Grüße
Rainer
Anzeige