Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeilen mit leeren Formeln beim Druck unterdrücken

Gruppe

Bereich

Problem

Wenn ich ein Blatt ausdrucke, werden Zeilen mit Zellen, in denen sich Formeln mit Leerstrings befinden mit ausgedruckt. Wie kann ich das verhindern?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub OhneAusblenden()
    ActiveSheet.PrintPreview
End Sub

Sub FuerDruckAusblenden()
   Dim rng As Range
   Dim iRow As Integer, iCol As Integer
   Dim bln As Boolean
   Set rng = Range("A1").CurrentRegion
   For iRow = 1 To rng.Rows.Count
      bln = False
      For iCol = 1 To rng.Columns.Count
         If Cells(iRow, iCol).Value <> "" Then
            bln = True
            Exit For
         End If
      Next iCol
      If bln = False Then
         rng.Rows(iRow).Hidden = True
      End If
   Next iRow
   ActiveSheet.PrintPreview
   Rows.Hidden = False
End Sub