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.
HinwBemerkungeneise
Ü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.