Gruppe
Druck
Bereich
Bereich
Thema
Zeilen nicht drucken, wenn Spalte C leer oder 0
Problem
Zeilen mit leeren Zellen oder Nullwerten in Spalte sollen zum Druck ausgeblendet werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
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