unabhängige Fehlerbehandlung

[Schmittklaus]

Hallo, :91:
ich habe eine Frage zur Fehlerbehandlung:
Mein Programm bemerkt einen Fehler den ich mit Err.Raise 700 abfange. d.h die Variable err hat den Wert 700

Das Programm springt zur Sprungmarke "Fehler:"
Dort wird eine weitere Funktion aufgerufen.
Anschließend hat err den Wert 0, da in der Funktion u.a. der Befehl "On Error Resume Next" steht.

Gibt es eine Möglichkeit die beiden Fehlerbehandlungen unabhängig voneinander zu definieren, so dass nach dem ausführen der Funktion die err Variable weiterhin bei 700 bleibt.

 LG Klaus

[LCohen]

Erst nach Aufrufen der Funktion ändert sich der Wert. Also weisest Du ihn vorher einer Variablen zu und fragst die ab.

[schauan]

Hallöchen,

im Prinzip würde auch so was gehen:

Code:

Sub test()
Dim a
On Error GoTo errorhandler1
Err.Raise 700
MsgBox 1
On Error GoTo errorhandler2
Err.Raise 700
Exit Sub
errorhandler1:
a = eins
MsgBox 2
Resume Next
errorhandler2:
MsgBox 3
End Sub

Function eins()
On Error Resume Next
End Function

[Schmittklaus]

:19: Danke, das hat mir weitergheholfen.