Fragen zu OnError (Fehler abfangen)

Sub Test() Sub NW_GW_PH_aus(Datei As String, Tabelle As String) If ErrorOn_app = True Then On Error GoTo Err_Exit Code... Makro_1 'Fehlerbehandlung************************************************************************ Err_Exit: If ErrorOn_app = True And err.Number Then ErrorHandler_APP err, "partnerhaendler", " _ NW_GW_PH_aus", Erl End Sub Folgende Fragenm habe zum Einbau: - ich habe eine ganze Makros in denen andere Makros aufgerufen werden Wo muss das Abfangen nun einbauen, damit es einwandfrei funktioniert. -Benötige ich das Abfangen in jedem Makro oder reicht es wenn ich den Code in dem Makro einbaue welche das andere aufruft? - Was sind Eure Erfahrungen bei so einem Vorgehen Danke Euch schonmal VG Steffen Schmerler

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Steffen,
das kann man pauschal nicht beantworten.
Prinzipiell reicht ein ErrorHandler in der allerersten Prozedur, nur landest Du bei einem Fehler dann immer dort und kannst die Fehler nicht individuell abhandeln... wobei man natürlich eine globale Variable verwenden kann, die am Anfang jeder Prozedur gesetzt wird - dadurch weiß man dann wieder, wo der Fehler aufgetreten ist. Dennoch schränkt das die Fehlerbehandlungsmöglichkeiten etwas ein, da ein Resume oder Resume Next sich immer auf die Prozedur bezieht, in der die Fehlerbehandlung steht. Außerdem stehen Dir auch die Variablen aus der Unterprozedur nicht mehr zur Verfügung, wenn Du bspw. eine Arbeitsmappe geöffnet hast, die bei einem Fehler wieder geschlossen werden soll, dann kannst Du das in dem Fall nicht mehr machen, wenn der Dateiname erst im Programmverlauf festgelegt wurde (z.B. über GetOpenFilename).
Ich bevorzuge es daher, die Fehler in der Prozedur abzuhandeln, in der sie auftreten. Statt Subs benutze ich dann auch oftmals Funktionen des Typs Boolean, so dass die aufrufende Prozedur am Rückgabewert erkennen kann, ob alles geklappt hat oder nicht.
Was Du auch unbedingt beachten musst: Wenn Du mit On Errror GoTo zu einer Fehlerbehandlung springst, dann ist diese so lange aktiv, bis ein Exit Sub/Function, End (Sub/Function) oder Resume (Next) kommt. Das bedeutet, dass in dieser Prozedur kein weiterer Fehler behandelt werden kann. Taucht dann also in der Fehlerbehandlung selber noch ein Fehler auf, dann kommt die Fehlermeldung von Excel. Außer es ist in übergeordneten Prozeduren noch eine Fehlerbehandlung eingerichtet, dann springt es zur nächsthöheren.
Gruß, Jogy

Hallo Jogy,

Prinzipiell reicht ein ErrorHandler in der allerersten Prozedur

Das ist nicht korrekt. Die Fehlerbehandlung muss in jeder Prozedur erfolgen. Fehler durchschleifen geht nur so:

Public Sub test1()
    1 Call test2
    2 If Err.Number <> 0 Then GoTo error_handler
    3 Exit Sub
    4 error_handler:
    5 MsgBox "Fehler " & CStr(Err.Number) & " in Zeile " & CStr(Erl) & vbLf & vbLf & _
        Err.Description, vbCritical Or vbMsgBoxHelpButton, _
        "Fehlermeldung", Err.HelpFile, Err.HelpContext
End Sub

Sub test2()
    1 Dim i As Integer
    2 On Error Resume Next
    3 i = "Anweisung, die Fehler produziert"
End Sub

In der Hauptprozedur muss also nicht unbedingt ein Errorhandler aktiv sein. Nur muss nach dem Aufruf der Unterroutine abgefragt werden ob diese einen Fehler zurück gibt.
@Steffen,
mach es gleich vernünftig und baue in jeder Routine mit Außnahme von Worksheet-Functions und Property-Prozeduren einen eigenständigen Errorhandler ein.
In Worksheetfunctions ist er unnötig, da der Fehler direkt als Fehlerwert in der Tabelle ausgegeben wird.
In Property-Prozeduren ist er unnötig, da hier der Fehler in der schreibenden / lesenden Zeile der Prozedur auftritt. Wenn du z.B. einer Eigenschaft die einen numerischen Wert erwartet einen String übergibst, dann tritt der Fehler in der Zuweisung und nicht in der Let-Prozedur auf.
Gruß
Nepumuk

Sub start() On Error GoTo errorhandler Call test1 Exit Sub errorhandler: MsgBox ("Fehler") Resume Next End Sub Private Sub test1() Call test2 End Sub Private Sub test2() Debug.Print 1 / 0 MsgBox ("OK") End Sub

Beliebteste Forumthreads (12 Monate)

Fragen zu OnError (Fehler abfangen)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread