MsgBox Abbrechen

Forumthread: MsgBox Abbrechen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: MsgBox Abbrechen

MsgBox Abbrechen

03.06.2008 14:00:00

Werner

Hallo zusammen,
in einer Raumbelegungsdatei habe ich ein Problem mit der MsgBox. Die Daten werden auch in die Tabelle geschrieben, wenn ich auf Abbrechen oder die Box am X zumache. Das Makro soll aber an der Stelle abbrechen. Wie muss das Makro geändert werden.
Fehlerbehandlung:
MsgBox "Der R A U M ist Frei !!!" + _
Chr(10) + Chr(10) + _
"OK, Ihr Eintrag wird in das System eingetragen." + _
Chr(10) + Chr(10), vbOKCancel + vbExclamation, "Raumbelegungsabfrage"
Gruß Werner

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: MsgBox Abbrechen

03.06.2008 14:02:00

Ramses
AW: MsgBox Abbrechen

03.06.2008 14:24:00

Werner
AW: MsgBox Abbrechen

03.06.2008 14:06:43

Matthias
AW: MsgBox Abbrechen

03.06.2008 14:06:46

Renee

AW: MsgBox Abbrechen

03.06.2008 14:02:00

Ramses

Hallo
Da ich nicht weiss, was NACH deiner MSG-Box sonst noch kommt
Fehlerbehandlung:
MsgBox "Der R A U M ist Frei !!!" + _
Chr(10) + Chr(10) + _
"OK, Ihr Eintrag wird in das System eingetragen." + _
Chr(10) + Chr(10), vbOKCancel + vbExclamation, "Raumbelegungsabfrage"
Exit Sub
Gruss Rainer

AW: MsgBox Abbrechen

03.06.2008 14:24:00

Werner

Hallo Ramses, Matthias & Renee,
Danke für die schnelle hilfe, hat gut funktioniert.
Gruß Werner

AW: MsgBox Abbrechen

03.06.2008 14:06:43

Matthias

Hallo Werner,


Sub tt()
If MsgBox("Frage", vbOKCancel) = vbCancel Then Exit Sub
MsgBox "OK"
End Sub

Gruß Matthias

AW: MsgBox Abbrechen

03.06.2008 14:06:46

Renee

Hallo Werner,

Wie muss das Makro geändert werden. Makro? welches Makro? du postest 1 einzige Zeile, vom Rest dürfen wir wohl nichts sehen?
Vielleicht so:


If vbOK = MsgBox("Der R A U M ist Frei !!!" & Chr(10) & Chr(10) & _
"OK, Ihr Eintrag wird in das System eingetragen." & _
Chr(10) & Chr(10), vbOKCancel + vbExclamation, "Raumbelegungsabfrage") Then
'... Mach das mit den Daten in die Tabelle schreiben...
End If

GreetZ Renée