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
Es sind etwa 80 Zeilen die geprüft werden müssen. Der Wechsel dauert auf einem Rechner mit 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