Fehlerabfangroutinen

[Peter_Desch_749124]

Hallo,

folgendes Problem:

Ich habe in einem Programm bestimmte Fehler abgefangen )über on error goto und bei dem bekannten Fehler ein resume next gesetzt (was bei meiner Anwendung okay), da ich aber in der Entwicklung des Programmes bin, würde ich gerne bei einem unbekannten Fehler in die Zeile des Programmes springen, in der der Fehler auftritt, mit on error goto müsste ich dann irgendwie festlegen, dass bei einem Fehler, den ich nicht vorher explizit bearbeitet habe ich dann in den Quellcode zurückspringe, bei dem der Fehler auftritt.

Danke im Voraus für Eure Antworten

Peter

[Okinaptz_Uglwf_88cbac]

Hallo.

folgendes Problem:

Kein Problem.

Sub KitzelMichTot()
Dim Rappel, Schepper As Integer
On Error Goto KitzelKaputt
Rappel="Im Himmel ist Jahrmarkt" 'das macht Bumm wegen falschen Datentyps, wird aber abgefangen, inklusive Fehlermeldung
**On Error Goto 0**
Schepper="Und nu issa putt" 'und das auch, bleibt aber hängen
Exit Sub
KitzelKaputt:
If Err.Number=4711 Then 'die Fehlernummer weiß ich jetzt nicht ...
 MsgBox "Erster Fehler"
 Resume Next
End If
End Sub

Gruß kw