Bei Fehler, Anweisung (VBA) (2023)

Validiert eine Fehlerbehandlungsroutine und definiert ihre Position innerhalb einerVerfahren; Mit dieser Anweisung ist es auch möglich, eine Fehlerbehandlungsroutine ungültig zu machen.

Syntax

In der Zeile „Gehe zu Fehler“.
Bei Fehler Weiter fortsetzen
Bei Fehler GoTo 0

Die Syntax der AnweisungBei Fehlerkann folgende Formen annehmen:

Bemerkungen

In Ermangelung einer AnweisungBei Fehler, jeder Laufzeitfehler ist nicht behebbar; mit anderen Worten: Es erscheint eine Fehlermeldung und die Ausführung wird gestoppt.

Ein Fehlerbehandler ist „festgeschrieben“, wenn er durch eine Anweisung festgelegt wurdeBei Fehler; Ein „aktiver“ Fehlerhandler ist ein validierter Handler, der einen Fehler behandelt. Wenn ein Fehler auftritt, während ein Fehlerbehandler aktiv ist (zwischen dem Auftreten des Fehlers und einer Anweisung).Wieder aufnehmen,Sub verlassen,Exit-FunktionoderExit-Eigenschaft), kann der Fehlerbehandler der aktuellen Prozedur den Fehler nicht verarbeiten. Die Kontrolle kehrt zur aufrufenden Prozedur zurück.

Wenn die aufrufende Prozedur über einen aktivierten Fehlerhandler verfügt, ist dieser für die Fehlerbehandlung aktiviert. Wenn der Fehlerhandler der aufrufenden Prozedur ebenfalls aktiv ist, wird die Kontrolle an frühere aufrufende Prozeduren zurückgegeben, bis ein festgeschriebener, aber inaktiver Fehlerhandler gefunden wird. Wenn kein festgeschriebener und inaktiver Fehlerbehandler gefunden wird, ist der Fehler an der Stelle, an der er aufgetreten ist, schwerwiegend.

Jedes Mal, wenn der Fehlerhandler die Kontrolle an eine aufrufende Prozedur zurückgibt, wird diese Prozedur zur aktuellen Prozedur. Sobald ein Fehler von einem Fehlerhandler in einer Prozedur behandelt wird, wird die Ausführung in der aktuellen Prozedur an der durch die Anweisung angegebenen Stelle fortgesetztWieder aufnehmen.

Fehlerbehandlungsroutinen basieren auf dem EigenschaftswertNummerdes ObjektsIrrenum die Fehlerursache zu ermitteln. Die Fehlerbehandlungsroutine sollte die Werte der relevanten Eigenschaft des Objekts testen oder speichernIrrenbevor ein weiterer Fehler auftritt oder eine möglicherweise fehlerverursachende Prozedur aufgerufen wird. ObjekteigenschaftswerteIrrenspiegelt nur den aktuellsten Fehler wider. Die zugehörige FehlermeldungFehlernummerist darin enthaltenFehlerbeschreibung.

L'AnweisungBei Fehler Weiter fortsetzenermöglicht die Fortsetzung der Ausführung ab der Anweisung, die unmittelbar auf die Anweisung folgt, die den Ausführungsfehler verursacht hat, oder unmittelbar nach dem letzten Aufruf, der von der Prozedur mit der Anweisung ausgeführt wurdeBei Fehler Weiter fortsetzen. Somit kann die Ausführung trotz eines Ausführungsfehlers fortgesetzt werden. Sie können die Fehlerbehandlungsroutine an der Stelle platzieren, an der ein Fehler auftreten könnte, anstatt die Kontrolle an eine andere Stelle in der Prozedur zu übertragen. ein StatementBei Fehler Weiter fortsetzenwird inaktiv, wenn eine andere Prozedur aufgerufen wird; Es empfiehlt sich daher, eine Anweisung zu platzierenBei Fehler Weiter fortsetzenin jeder Routine, die eine Online-Verwaltung von Fehlern erfordert, die in dieser Routine aufgetreten sind.

L'AnweisungBei Fehler GoTo 0wird verwendet, um die Fehlerbehandlung in der aktuellen Prozedur zu deaktivieren. Diese Anweisung deklariert Zeile 0 nicht als Start des Fehlerbehandlungsprogramms, selbst wenn die Prozedur eine Zeilennummer 0 enthält. In Abwesenheit einer AnweisungBei Fehler GoTo 0, wird der Fehlerhandler beim Beenden der Prozedur automatisch deaktiviert.

Um zu verhindern, dass der Fehlerhandler ausgeführt wird, wenn kein Fehler vorliegt, platzieren Sie eine AnweisungSub verlassen,Exit-FunktionoderExit-Eigenschaftunmittelbar vor der Fehlerbehandlungsroutine, wie das folgende Beispiel zeigt:

Sub InitializeMatrix(Var1, Var2, Var3, Var4) Bei Fehler GoTo ErrorHandler . . . Sub ErrorHandler beenden: . . . Nächstes Ende fortsetzen

Hier folgt der Fehlerbehandlungscode der AnweisungSub verlassenund steht vor der AnweisungEnd Subum es vom Verfahrensablauf zu trennen. Fehlerhandler können an einer beliebigen Stelle in einer Prozedur platziert werden.

Fehler, die von Objekten ausgehen und nicht abgefangen werden, werden während der Ausführung des Objekts als ausführbare Datei an die steuernde Anwendung zurückgegeben. In der Entwicklungsumgebung werden nicht abgefangene Fehler nur dann an die steuernde Anwendung zurückgegeben, wenn die entsprechenden Optionen gesetzt sind. Weitere Informationen zu Optionen, die beim Debuggen, Aktivieren von Methoden und Erstellen aktiviert werden könnenKlassenbis zumHost-Appsiehe dessen Dokumentation.

Wenn Sie ein Objekt erstellen, das auf andere Objekte zugreift, empfiehlt es sich, die von diesen erneut übertragenen Fehler zu behandeln, ohne sie zu verarbeiten. Wenn Sie damit nicht zurechtkommen, gleichen Sie den Fehlercode abFehlernummerund einen der von Ihnen definierten Fehler, und übergeben Sie ihn dann an den Code zurück, der Ihr Objekt aufruft. Um einen Fehler zu definieren, fügen Sie der Konstante Ihre Fehlernummer hinzuvbObjectError. Gehen Sie beispielsweise bei Fehlernummer 1052 wie folgt vor:

Err.Number = vbObjectError + 1052

Beispiel

In diesem Beispiel wird zunächst die Anweisung verwendetBei Fehler GoToum die Position einer Fehlerbehandlungsroutine innerhalb einer Prozedur anzugeben. In unserem Beispiel führt der Versuch, eine geöffnete Datei zu löschen, zu Fehler 55. Dieser Fehler wird in der Fehlerbehandlungsroutine behandelt und die Kontrolle wird dann an die Anweisung zurückgegeben, die den Fehler verursacht hat. AnweisungBei Fehler GoTo 0deaktiviert die Fehlerbehebung.

L’Anweisung zum Fortsetzen des nächsten Fehlerswird dann verwendet, um die Fehlererkennung zu verzögern, sodass der Kontext des von der nächsten Anweisung generierten Fehlers mit Sicherheit bekannt sein kann. Beachten Sie, dassErr.Clearwird zum Löschen von Objekteigenschaften verwendetIrrensobald der Fehler behoben wurde.

Sub OnErrorStatementDemo() On Error GoTo ErrorHandler ' Fehlerbehandlungsroutine aktivieren. Öffnen Sie „TESTFILE“ für die Ausgabe als Nr. 1. Öffnen Sie die Datei für die Ausgabe. Kill „TESTFILE“ ' Versuch, geöffnete Datei zu löschen. Bei Fehler Gehe zu 0 ' Fehler-Trapping ausschalten. Bei Fehlerfortsetzung als nächstes ' Fehlerabfangen aufschieben. ObjectRef = GetObject("MyWord.Basic") ' Versuchen Sie, ein nicht vorhandenes ' Objekt zu starten, und testen Sie dann auf 'Überprüfen Sie, ob wahrscheinliche Automatisierungsfehler vorliegen.' Wenn Err.Number = 440 oder Err.Number = 432, dann „Teilen Sie dem Benutzer mit, was passiert ist.“ Löschen Sie dann das Err-Objekt. Msg = „Beim Versuch, das Automatisierungsobjekt zu öffnen, ist ein Fehler aufgetreten!“ MsgBox Msg, , „Deferred Error Test“ Err.Clear ' Err-Objektfelder löschen End If Exit Sub ' Beenden, um den Handler zu vermeiden. ErrorHandler: ' Fehlerbehandlungsroutine. Wählen Sie Case Err.Number ' Fehlernummer auswerten. Fall 55 'Fehler „Datei bereits geöffnet“. Schließen #1 ' Geöffnete Datei schließen. Case Else ' Behandeln Sie hier andere Situationen ... End Select Resume ' Ausführung in derselben Zeile fortsetzen ', die den Fehler verursacht hat. End Sub

Siehe auch

• Datentypen
• Anweisungen

Unterstützung und Feedback

Haben Sie Fragen oder Kommentare zu OfficeVBA oder dieser Dokumentation? Konsultieren Sie den entsprechenden AbschnittOfficeVBA-Unterstützung und FeedbackAnweisungen zum Erhalten von Support und zum Einreichen von Feedback finden Sie hier.