<< Click to Display Table of Contents >> Resume (Anweisung)

Resume [0]

Oder:

Resume Next

Oder:

Resume Label

Beendet eine mittels der On Error-Anweisung festgelegte Fehlerbehandlungsroutine und fährt mit der Ausführung fort.

Siehe auch: On Error

Beispiel:

Sub Main

 On Error Goto Fehler

 Print 1/0     ' Fehler (Division durch Null) auslösen

 MsgBox "Ende"

 Exit Sub

Fehler:            ' Fehlerbehandlungsroutine

 Dim DgDef, Msg, Response, Title

 Title = "Fehler"

 Msg = "Es ist ein Laufzeitfehler aufgetreten. Möchten Sie fortfahren?"

 DgDef = MB_YESNO + MB_ICONEXCLAMATION

 Response = MsgBox(Msg, DgDef, Title)

 If Response = IDYES Then

         Resume Next

 Else

         Stop

 End If

End Sub