Fehlerhandling

[Arndtinho]

Hallo,

in meiner Sub habe ich ein Fehlerhandling was folgendermaßen aussieht:

Private Sub cmdPrintBegrSchr_Click()
On Error GoTo ErrorHandler
...
ErrorHandler:
Select Case MsgBox("Fehler " & Err.Number & ": " & vbCrLf & _
Err.Description & vbCrLf & "ist aufgetreten.", _
vbAbortRetryIgnore + vbExclamation, " Fehlermeldung")

Case vbAbort
Resume Exit_cmdPrintBegrSchr_Click 'Verlassen
Case vbRetry
Resume 'Wiederholen
Case vbIgnore
Resume Next 'Ignorieren
End Select
End Sub

beim Kompilieren wird mir folgende Fehlermeldung gebracht:

'Sprungmarke nicht definiert' und 'Resume Exit_cmdPrintBegrSchr_Click' wird dabei markiert. Warum?

Gruß Arndtinho

 

[Retlaw]

Weil du die Sprungmarke Exit_cmdPrintBegrSchr_Click auch nirgendwo definiert hast, zum Verlassen kannst du Exit Sub benutzen.

 

[Arndtinho]

Re:

Hi,

habe es nun hinbekommen.

Gruß Arndtinho