Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Drucken mit Bedingung

Drucken mit Bedingung
08.09.2020 10:57:47
Andre
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") = ""

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken mit Bedingung
08.09.2020 11:04:35
Rudi
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
AW: Drucken mit Bedingung
08.09.2020 11:19:50
Andre
Hallo Rudi
Vielen Dank für deine schnelle Antwort läuft super
Daumen hoch
Bleib Gesund
Andre
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige