Du mußt das mit einem Errorhandler machen. Anders gehts nicht. Wenn du sonst schon einen anderen Errorhandler hast dann setze eine Zeile vor dem Aufruf einen speziellen für die Inputbox.
Ist zwar alles andere als schön strukturiert, geht aber nicht anders. Execeptions kommen ja erst in der nächsten VB-Version.
Beispiel:
sub beispiel()
on error goto beispiel_error
...
...
on error goto beispiel_inbox_error
x = inbox("bla bla" ...... usw
on error goto beispiel_error
...
...
beispiel_inbox_error:
'Abbrechen wurde gedrückt
..
exit sub
beispiel_error:
'restlichen fehler abfangen
end sub
|