Code soll auch bei aktiviertem Blattschutz funktio
20.05.2003 10:29:21
Sören
Sub Drucken()
Dim iRow As Integer, iRowL As Integer
Application.ScreenUpdating = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If Cells(iRow, 1) <> 2 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
Application.ScreenUpdating = True
End Sub