Zeilen ausblenden dauert lange
DieterL
ich lasse in einem Tabellenblatt über ein Makro alle Zeilen ausblenden in denen in Spalte 4 ein n steht.
Private Sub Wechsel()
Application.ScreenUpdating = False
Dim intz As Integer
Dim lzeile As Long
Cells.EntireRow.Hidden = False
lzeile = ActiveSheet.Cells(ActiveSheet.Rows.Count, 4).End(xlUp).Row
For intz = lzeile To 3 Step -1
Rows(intz).Hidden = Cells(intz, 4) = "n"
Next
Application.ScreenUpdating = True
End Sub
3,2 Ghz Dual Core 2 bis 3 Sekunden, auf einem Laptop mit 2,2 Ghz quälende 5 Sekunden. Das geht aber
erst nach einigen Wechseln langsamer, gleich nach dem Start der Datei funktioniert es in Echtzeit.
Hat jemand eine Idee was da schief läuft?
Danke schon mal fürs Nachdenken, DieterL