Zusätzliche Schleife in Druckmakro - Code dabei
lutz
ich bin leider mal wieder zu blöd für eine weitere Schleife... Kann mir da jemand helfen?
Ich habe ein Druckmakro:
Sub BonDruckenEingabeButtonT()
Range("H3").Select
Sheets("BonTK").Select
Dim Bereich As Range
With Worksheets("BonTK")
Set Bereich = .Range("H9:H40")
For Each Zelle In Bereich.Cells
If Zelle.Value = "Tableau" Then
Zelle.EntireRow.Hidden = False
Else
Zelle.EntireRow.Hidden = True
End If
Next Zelle
.PrintOut Copies:=1, Collate:=True
.Range("H9:H40").EntireRow.Hidden = False
Set Bereich = Nothing
End With
Sheets("Eingabe").Select
Range("H3").Select
End Sub
Das geht auch ganz toll und es gibt noch ein 2tes welches auf "Karree" abfragt. Es werden alle Zeilen ausgeblendet und nur das richtige gedruckt.Aber ein Problem habe ich noch: manchmal gibt es nur Tableau oder nur Karree und dann druckt er eine leere Seite aus.
Wie kann ich davor schalten, das gar nicht gedruckt wird wenn in dem Bereich H9:H40 der gesuchte Begriff (hier Tableau) gar nicht vorkommt?
Vielen Dank für Eure Hilfe
Viele Grüße Lutz