Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Zeilen nicht drucken, wenn Spalte C leer oder 0
Gruppe
Bereich
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