Ausblenden Zeilen
23.01.2004 07:54:33
thomas
Habe ein Makro welches Zeilen ausblendet, dies funktioniert auch ohne Probleme. Aber wenn ich das Makro zum zweitenmal starte geht es signifikant länger bis es seine arbeit erledigt hat als beim ersten Mal. Auf was ist das zurückzuführen???
Hier nun das Makro
Sub Drucken()
ActiveSheet.Unprotect Password:=""
Rows.Hidden = False
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 9).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 9)) Or Cells(iRow, 9).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
ActiveSheet.Protect Password:=""
End Sub
Herzlichen Dank für Eure Hilfe
Gruss
Thomas