Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

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