Ich benötige mal wieder eure Hilfe und zwar möchte ich per Button das Tabellenblatt (Datenblatt) drucken.
Aber nur wenn in Zelle H34 der Text "In Arbeit" steht wenn "Erledigt" steht soll er nicht drucken. Wie muss den Code umstellen damit er das umsetzt.
Danke schon im vor raus für eure Hilfe
Sheets("Datenblatt").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Datenblatt").Range("E9") = ""
Sheets("Datenblatt").Range("D11") = ""
Sheets("Datenblatt").Range("H9") = ""