Jörg Schmidt schrieb:
Sub Main
meld = "Bitte Zahl eingeben"
On Error Goto x
a = 100
neu:
b = InputBox(meld)
c = a/b
Msgbox "Ergebnis ist: " & c
Exit Sub
x:
msgbox "Die Fehlernummer: " & Err _
& CHR(13) & "Der Fehlertext: " & Error _
& CHR(13) & "Der Fehler trat auf in Zeile: " & Erl
If Err = 11 Then
meld = "Sie dürfen keine 0 eingeben." & _
CHR(13) & "Bitte versuchen Sie es erneut."
Resume neu:
End if
End Sub
Das hat aber nichts mit IsError() und einem Fehlerwert zu tun ;-)
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
