Microsoft Excel

Herbers Excel/VBA-Archiv

Makro-viel zu lange Laufzeit?!

Betrifft: Makro-viel zu lange Laufzeit?! von: Rainer
Geschrieben am: 12.08.2004 14:51:44

Hallo Community,
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
  


Betrifft: AW: Makro-viel zu lange Laufzeit?! von: Ulf
Geschrieben am: 12.08.2004 14:56:01

Schalte mal die automatische Berechnung aus, dann sollte es schneller gehen.

Ulf