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