Code zu langsam!
28.08.2007 07:49:33
Snewi
ich benutze folgenden Code um Zeilen in denen 0 steht auszublenden!
Sub Ausblenden_Zeilen()
Dim i As Long
Sheets("Bericht").Select
Application.EnableEvents = False
For i = 17 To 395
If Cells(i, 5).Value = 0 Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next i
Application.EnableEvents = True
End Sub
Nun benötigt Excel leider fast 3 Minuten um dieses auszuführen weil wohl für jede Zeile noch andere Berechnungen laufen oder wie auch immer!
Kann man die Ausführung vielleicht verschnellern oder einen anderen Code nehmen?
Gruß