VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeilen mit leeren Formeln beim Druck unterdrücken

Gruppe

Druck

Bereich

Bereich

Thema

Zeilen mit leeren Formeln beim Druck unterdrücken

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

    


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