Kapitel 4 (VBA)

Meldungen

Messagebox

[image]

MsgBox "Datei " & s_Datei & " nicht gefunden.", vbCritical, "Fehler beim Öffnen"

Anordnung:

1) Meldung innerhalb der Box

Sie steht unmittelbar vorne.

MsgBox "Datei " & s_Datei & " nicht gefunden.", 2, 3

2) Icon

Welches Icon benutzt wird, hängt vom Verwendungszweck ab. Es steht an der zweiten Stelle der Messagebox.

MsgBox 1, vbCritical , 3

vbCritical ist ein wißes x auf rotem Grund.

3) Hinweis oben

Der Hinweis steht an letzter Stelle.

MsgBox 1, 2, "Fehler beim Öffnen"


MsgBox "Datei " & s_Datei & " nicht gefunden.", vbCritical, "Fehler beim Öffnen"

Inputbox

[image]

Sub Inputbox_Message()

s_Antwort = InputBox("Bitte das Dateidatum eingeben. Format jjjjmmtt", "Einlesedatei")

If s_Antwort = "" Then MsgBox "Bitte Datum eingeben.", vbExclamation, "Fehler" Exit Sub End If

End Sub

Inputbox

Anordnung:

1) Eingabetext

1 = InputBox("Bitte das Dateidatum eingeben. Format jjjjmmtt", "Einlesedatei")

s_Antwort ist die Variable, die den eingebenen Text aufnimmt. Diese Variable kann daraufhin geprüft werden, ob sie gefüllt ist oder ob die den gewünschten Inhalt hat.

2) Hinweis innerhalb der Box

s_Antwort = InputBox("Bitte das Dateidatum eingeben. Format jjjjmmtt", 2)

3) Hinweis oben

s_Antwort = InputBox(3, "Einlesedatei")

[image]

Messagebox

vbExclamation ist das Ausrufezeichen.