Microsoft Excel

Herbers Excel/VBA-Archiv

Drucken mit Bedingung

Betrifft: Drucken mit Bedingung von: Andre
Geschrieben am: 08.09.2020 10:57:47

Hallo Zusammen


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") = ""

Betrifft: AW: Drucken mit Bedingung
von: Rudi Maintaire
Geschrieben am: 08.09.2020 11:04:35

Hallo,
Sub aaa()
  With Sheets("Datenblatt")
    If .Range("H34") = "In Arbeit" Then
      .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
      .Range("E9") = ""
      .Range("D11") = ""
      .Range("H9") = ""
    End If
  End With
End Sub

Gruß
Rudi

Betrifft: AW: Drucken mit Bedingung
von: Andre
Geschrieben am: 08.09.2020 11:19:50

Hallo Rudi

Vielen Dank für deine schnelle Antwort läuft super
Daumen hoch

Bleib Gesund
Andre

Beiträge aus dem Excel-Forum zum Thema "Drucken mit Bedingung"