performance verbessern
14.08.2003 14:08:47
richard
habt ihr ne idee wie man diesen code beschleunigen kann? das problem ist, dass das ganze für 3500 zeilen passieren soll. und das dauert.
danke schonmal im voraus
Sub Ausblenden()
Dim i
Dim WSsource
Dim Zeile As Range
Dim rng As Range
Application.ScreenUpdating = False
WSsource = "Auswertung"
i = Worksheets(WSsource).Range("F65000").End(xlUp).Row
For Each rng In Range("F5:F" & i)
If rng.Value = "0" Then
Rows(rng.Row).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
mfg richi