Fehler abfangen mit VBA

Hallo Zusammen,
Ich habe mehrere Funktionen geschrieben, die nach einander ohne direkten Zusammenhang bei einem Klick auf einen Button laufen lasse. Wie im folgenden Beispiel:

Sub Test ()
On error goto Fehler
Call Sub1
Call Sub2
Call Sub3
Exit Sub
Fehler:
MsgBox "Fehler"
End Sub

Wenn ich nun einen Fehler im Sub1 habe wird mir zwar die Fehlermeldung in dieser Funktion angezeigt, aber Sub2 und Sub3 wird trotzdem ausgeführt. Ausserdem wird dieser Fehler im Sub Test leider auch nicht abgefangen, sondern läuft ohne Fehler durch. Wie kann ich das programmieren, dass bei einem Fehler die nachfolgenden Sub's nicht mehr ausgeführt werden? Gibt es da eine Möglichkeit?
Vielen Dank und Herzliche Grüsse Carlo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function F1() As Boolean On Error GoTo Fehler: Makro Err.Clear Fehler: With Err Select Case .Number Case 0 'Alles OK Case 99999 Case Else F1 = True MsgBox "Fehler-Nr: " & Err.Number & vbLf & Err.Description, _ vbInformation + vbOKOnly, "Fehler Function F1" End Select End With End Function Sub Test() If F1 = True Then Exit Sub If F2 = True Then Exit Sub 'etc.. End Sub

Hallo,
eine Variante bei Subs wäre eine Variable mit zu übergeben.
Im Beispiel ist es eine Variable vom Typ String, die ich mit dem entsprechenden Fehlertext fülle.
Die Variable muss ByRef übergeben werden (ist Standard, aber für Demo angegeben)

Sub Start()
Dim strFehler$

Call Sub1(strFehler): If strFehler <> "" Then GoTo ErrorText
Call Sub2(strFehler): If strFehler <> "" Then GoTo ErrorText
Call Sub3(strFehler): If strFehler <> "" Then GoTo ErrorText

ErrorText:
If strFehler <> "" Then MsgBox strFehler, vbCritical
End Sub

Sub Sub1(ByRef strFehler$)
On Error GoTo ErrorH
Range("A1").Value = 1
Exit Sub
ErrorH:
strFehler = "Fehler in Sub1!" & vbCr & vbCr & Err.Number & vbCr & vbCr & Err.Description
End Sub

Sub Sub2(ByRef strFehler$)
On Error GoTo ErrorH
Range("A0").Value = 10 'Beispiel Fehler 
Exit Sub
ErrorH:
strFehler = "Fehler in Sub2!" & vbCr & vbCr & Err.Number & vbCr & vbCr & Err.Description
End Sub

Sub Sub3(ByRef strFehler$)
On Error GoTo ErrorH
Range("A2").Value = 2
Exit Sub
ErrorH:
strFehler = "Fehler in Sub3!" & vbCr & vbCr & Err.Number & vbCr & vbCr & Err.Description
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

133 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler abfangen mit VBA

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

133 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread