Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1368to1372
1368to1372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MsgBox

Forumthread: MsgBox

MsgBox
14.07.2014 10:31:06
Philipp
Hallo zusammen,
zum Drucken meiner Excel Datei habe ich diesen VBA hinterlegt. 
Sub DRUCKEN()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Nun möchte ich vor dem Druckauftrag gerne eine Messagebox einfügen mit dem Text
Soll dieses Dokument gedruckt werden? Ok oder Abbrechen
Wie füge ich dies in meinen VBA ein?

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox
14.07.2014 10:38:01
mumpel
Hallo!
Sub DRUCKEN()

If MsgBox("Wollen Sie die gewählten Blätter drucken?", vbYesNo, "Drucken?") = vbNo Then Exit Sub

  ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 15
Gruß, René
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige