Langsames Makro
20.10.2002 21:01:27
sigi
ich habe ein Arbeitsblatt mit 40000 Zeilen (vierzigtausend) Einträgen.
Nun filter eich die Beschrifteten Bereiche mittels nachfolgendem
Makro.
Dies klapp ganz gut, wenn ich die Arbeitsmappe öffne.
Nachdem ich es ein zweites mal versuche benötigt das Programm
ca. 5 Minuten um eine neu Sitenansicht zu erstellen.
Warum?
Wenn ich es zwischen nur speichere funktioniert es auch nicht.
Danke für Eure Hilfe!
Gruß
Sigi
Option Explicit
Sub Drucken()
Dim i%
Dim Schalter As Boolean
Application.ScreenUpdating = False
For i = 1 To 587
If Cells(i, 1) <> 2 Then
Rows(i).Hidden = True
Else
Schalter = True
End If
Next i
If Schalter Then ActiveSheet.PrintPreview
Rows.Hidden = False
End Sub