Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
980to984
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
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

MsgBox Abbrechen

MsgBox Abbrechen
03.06.2008 12: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
Anzeige
AW: MsgBox Abbrechen
03.06.2008 12: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 12:24:00
Werner
Hallo Ramses, Matthias & Renee,
Danke für die schnelle hilfe, hat gut funktioniert.
Gruß Werner

AW: MsgBox Abbrechen
03.06.2008 12:06:43
Matthias
Hallo Werner,

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


Gruß Matthias

Anzeige
AW: MsgBox Abbrechen
03.06.2008 12: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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige