Spalten ausblenden bei bestimmtem Inhalt
lutz
ich habe mal wieder ein Problem.
Ich habe ein Makro welches leere Zeilen vor dem Druck ausblendet und dann wieder ein.
Nun muß ich auch noch die Spalten G und H ausblenden, wenn in Zelle G9 etwas anderes als "" steht.
Muß/kann ich 2 x with verarbeiten? Wie müßte das Makro aussehen?
Sub Drucken()
Range("H3").Select
Sheets("BonB").Select
Dim Bereich As Range
With Worksheets("BonB")
Set Bereich = .Range("F9:F28")
For Each Zelle In Bereich.Cells
If Zelle.Value "" Then
Zelle.EntireRow.Hidden = False
Else
Zelle.EntireRow.Hidden = True
End If
Next Zelle
.PrintOut Copies:=1, Collate:=True
.Range("F9:F28").EntireRow.Hidden = False
Set Bereich = Nothing
End With
Sheets("Eingabe").Select
Range("H3").Select
End Sub
Vielen Dank für Eur Hilfe
Lutz
Anzeige