VBA-Programmierung in Microsoft Excel

Zeilen nicht drucken, wenn Spalte C leer oder 0

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

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Bereich