MsgBox

1. Syntax:

MsgBox("Meldungstext" [, buttons] [, "title"] [, helpfile, context])

Achtung: Die runden Klammern sind nur erlaubt, wenn das Ergebnis einer Variablen zugeordnet werden soll wie antwort = MsgBox(...) bzw. ausgewertet werden soll.

Beispiel: If MsgBox(...........) = vbOK then ..... bzw.

Antwort = MsgBox("Meldungstext", vbOKCancel, "Titel")

If Antwort = vbOK then ...

Um nur einen Meldungstext ausgeben zu wollen dürfen die runden Klammern nicht gesetzt werden.
Meldungstext: Max. ca. 1024 Zeichen, je nach Schriftbreite
Buttons: numerischer Ausdruck mit folgenden Werten:

Konstante	Wert	Beschreibung
VbOKOnly	0	Nur die Schaltfläche OK anzeigen.
VbOKCancel	1	Schaltflächen OK und Abbrechen anzeigen.
VbAbortRetryIgnore	2	Schaltflächen Abbruch, Wiederholen und Ignorieren anzeigen.
VbYesNoCancel	3	Schaltflächen Ja, Nein und Abbrechen anzeigen.
VbYesNo	4	Schaltflächen Ja und Nein anzeigen.
VbRetryCancel	5	Schaltflächen Wiederholen und Abbrechen anzeigen.
VbCritical	16	Meldung mit Stop-Symbol anzeigen.
VbQuestion	32	Meldung mit Fragezeichen-Symbol anzeigen.
VbExclamation	48	Meldung mit Ausrufezeichen-Symbol anzeigen.
VbInformation	64	Meldung mit Info-Symbol anzeigen.
VbDefaultButton1	0	Erste Schaltfläche ist Standardschaltfläche.
VbDefaultButton2	256	Zweite Schaltfläche ist Standardschaltfläche.
VbDefaultButton3	512	Dritte Schaltfläche ist Standardschaltfläche.
VbDefaultButton4	768	Vierte Schaltfläche ist Standardschaltfläche.
VbApplicationModal	0	An die Anwendung gebunden. Der Benutzer muß auf das Meldungsfeld reagieren, bevor er seine Arbeit mit der aktuellen Anwendung fortsetzen kann.
VbSystemModal	4096	An das System gebunden. Alle Anwendungen werden unterbrochen, bis der Benutzer auf das Meldungsfeld reagiert.

Von den, durch eine Leerzeile getrennt, 4 Bereichen darf nur je eine Zahl zum Addieren des Gesamtwertes verwendet werden. Die Zahl 276 setzte sich somit aus 4 + 16 + 256 zusammen.

Title: Text, der in der Titelleiste erscheint

Helpfile + context: optional

 

2. Formatierte Meldung erstellen:

MsgBox("Überschrift@Text@Lösung" [, + buttons1] [+ buttons2] [+buttons3] [+buttons4] [,"titel"])

Überschrift: Fettgedruckte Überschrift

Text: Meldungstext

Lösung: Text für einen Lösungsansatz

Buttons: vbAbortRetryIgnore oder vbQuestion ...

Titel: Text, der in der Titelleiste erscheint