Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1368to1372
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

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?

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige