Gruppe
Druck
Problem
Wie kann ich veranlassen, daß nur die Zeilen gedruckt werden, die in spalte A eine 2 enthalten?
StandardModule: basMain
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