ich habe für mich eine Quittungsvorlage entworfen und lasse diese auch per Klick (commandButton) ausdrucken.
Der Code lautet hierzu:
~
Private Sub Rechnung_Click()
If MsgBox("Belege drucken?", vbYesNo, "Drucken") = vbYes Then ActiveSheet.PrintOut
End Sub
~Nun will ich, bevor die Datei gedruckt wird noch 2 Bedingungen überprüfen lassen.
Wenn in Zelle C22 der Wert "EC-Cash" steht und in Zelle K55 der Rechnungsbetrag den Wert "200,00" übersteigt, dann soll eine msgbox erscheinen (idealerweise vbyesno). Inhalt der msgbox: "Personalausweis beidseitig kopiert?". Bei "yes", soll der Ausdruck der Quittung erfolgen, bei "no" soll kein Ausdruck erfolgen.
Ich habe schon einiges mit meinem mageren Wissen ausprobiert, komme aber nicht auf die gewünschte Lösung. Vermutlich ist es einfach, jedoch nicht für mich.
Ich hoffe, ihr könnt mir bei meinem Problem weiterhelfen. In jedem Fall bin ich dankbar, dass ihr euch dafür Zeit nimmt.
Beste Grüsse
Leo