Gruppe
Druck
Problem
Wie kann ich alle leere Zeilen beim durck ausblenden?
StandardModule: basMain
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