VBA Vorlage für Funktion mit Fehlerbehandlung

9. Februar 2018

Microsoft Access VBA Vorlage für Funktion mit Fehlerbehandlung

Mit Hilfe dieser VBA Vorlage für Funktion bauen Sie eine standardisierte Grundstruktur für neue VBA-Funktionen oder Subs für Microsoft Access VBA-Projekte auf. Die Verwendung ist auch in anderen Microsoft Office Programmen, wie Word oder Excel möglich.

Diese Vorlage liefert das Grundgerüst einer Funktion mit Fehlerbehandlung. Kopieren Sie die Zeilen in Ihr VBA-Projekt und ersetzen Sie alle „XXX“ durch den Namen Ihrer Funktion. Für die Verwendung als SUB ersetzen Sie „Function“ in Zeile 1 und in den Zeilen 7 und 23 durch „SUB“.

Function XXX()
    On Error GoTo XXX_err

' insert your code here

XXX_exit:
    Exit Function
XXX_err:
    Dim err_msg
    Dim msg_ret

    err_msg = "Fehler " & Err & ": " & Err.Description
    msg_ret = MsgBox(err_msg, 50, " Fehler")

    Select Case msg_ret
        Case 3
            Resume XXX_exit
        Case 4
            Resume 0
        Case 5
            Resume Next
     End Select
End Function

Function XXX()

On Error GoTo XXX_err

' insert your code here

XXX_exit:

Exit Function

XXX_err:

Dim err_msg

Dim msg_ret

err_msg = "Fehler " & Err & ": " & Err.Description

msg_ret = MsgBox(err_msg, 50, " Fehler")

Select Case msg_ret

Case 3

Resume XXX_exit

Case 4

Resume 0

Case 5

Resume Next

End Select

End Function