Freigeben über


Fehlerfunktion

Gibt die Fehlermeldung zurück, die einer bestimmten Fehlernummer entspricht.

Syntax

Fehler [ (Fehlernummer) ]

Das optionale Argument errornumber kann eine beliebige gültige Fehlernummer sein. Wenn Fehlernummer eine gültige Fehlernummer, jedoch nicht definiert ist, gibt Error die Zeichenfolge "Anwendungs- oder objektbedingter Fehler" zurück.

Wenn Fehlernummer nicht gültig ist, tritt ein Fehler auf. Wenn Fehlernummer weggelassen wird, wird die Meldung zurückgegeben, die dem zuletzt aufgetretenen Laufzeitfehler entspricht. Wenn kein Laufzeitfehler aufgetreten ist oder Fehlernummer 0 ist, gibt Error eine Zeichenfolge der Länge null ("") zurück.

Hinweise

Überprüfen Sie die Eigenschaftseinstellungen des Err-Objekts, um den zuletzt aufgetretenen Laufzeitfehler zu identifizieren. Der Rückgabewert der Error-Funktion entspricht der Beschreibungseigenschaft des Err-Objekts.

Beispiel

In diesem Beispiel wird die Error-Funktion verwendet, um Fehlermeldungen zu drucken, die den angegebenen Fehlernummern entsprechen.

Private Sub PrintError()
    Dim ErrorNumber As Long, count As Long
    count = 1: ErrorNumber = 1
    On Error GoTo EOSb
    Do While count < 100
        Do While Error(ErrorNumber) = "Application-defined or object-defined error": ErrorNumber = ErrorNumber + 1: Loop
        Debug.Print count & "-Error(" & ErrorNumber & "): " & Error(ErrorNumber)
        ErrorNumber = ErrorNumber + 1
        count = count + 1
    Loop
EOSb: Debug.Print ErrorNumber
End Sub


Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.