Gruppe
Druck
Problem
Zeilen mit leeren Zellen oder Nullwerten in Spalte sollen zum Druck ausgeblendet werden.
StandardModule: Modul1
Sub Drucken()
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 3).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
End Sub