Gruppe
Druck
Problem
Wenn ich ein Blatt ausdrucke, werden Zeilen mit Zellen, in denen sich Formeln mit Leerstrings befinden mit ausgedruckt. Wie kann ich das verhindern?
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