Makro für Zeilen ausblenden
13.09.2002 14:51:29
haferstroh
habe ein Makro geschrieben, das mir in einer ellenlangen
Preisliste alle Zeilen ausblendet, die für den Ausdruck
nicht benötigt werden.
Mein Problem:
Beim erstmaligen aktivieren des Makros geht alles flott, wie
erwartet (<1sec). Ruft man es zum zweiten mal auf benötigt mein
PC dafür locker >60sec.
Makro ist nachfolgend gelistet.
Bin dankbar für jeden Tipp.
Sub Drucken()
'ActiveSheet.Unprotect
Application.ScreenUpdating = False
Range("c6").Select
Dim Zähler As Integer
For Zähler = 1 To 198
ActiveCell.Offset(1, 0).Select
If ActiveCell = 0 Then
Selection.EntireRow.Hidden = True
Else
End If
Next Zähler
End Sub
Anzeige