Es kommt immer noch

Computer: Software & Programmierung Visual Basic
#1

der laufzeitfehler kommt aber nach der msgbox immer noch!

#2

Hi,

Sub MachEsSo 
 
 On Error GoTo ErrorHandlerNr1 
 x = 5 / 0 
 MsgBox "Und es geht doch weiter" 
 
 On Error GoTo 0 _' ErrorHandler deaktiviert_
 On Error Resume Next _' Nach Fehler mit nächster Zeile weitermachen_
 x = 5 / 0
 If Err.Number = 11 Then
 MsgBox "Durch Null geteilt"
 Else
 MsgBox "Häh?"
 End If
 
 On Error GoTo 0
 On Error GoTo ErrorHandlerNr2
 y = 0
 x = 5 / y
 MsgBox "Schau an ..."

 Exit Sub _' sonst käme jetzt die MsgBox "Dumm gelaufen"!_
 
ErrorHandlerNr1: 
 MsgBox "Dumm gelaufen" 
**Resume Next** _'Bei der <u>nächsten</u> Anweisung wieder einsteigen_
 
ErrorHandlerNr2:
 MsgBox "Durch Null geteilt, aber Trick 17!"
 y = 1
 Resume _' Die <u>gleiche</u> Anweisung wiederholen_
End Sub

Gruß, Ralf