Zeilen ausblenden (sehr dringend)
30.06.2003 11:14:54
Roland
Ich möchte in einer Tabelle alle Zeilen die in der Spalte A den Wert 0 enthalten ausblenden. Nachdem die Druckvorschau geschlossen oder gedruckt wurde, sollen die Zeilen wieder eingeblendet werden. Hab schon begonnen, aber irgendwas stimmt nicht. Bitte dringend um Hilfe!!!
Sub DruckZeilen()
Dim iRow As Integer, iRowL As Integer
Application.ScreenUpdating = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 1)) Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
Application.ScreenUpdating = True
End Sub
Vielen Dank!
lg
Roland