Errorhandling
01.11.2003 17:22:28
Ina
ich habe das Problem zweier aufeinanderfolgender Fehlerbehandlungen.
Während der erste Fehler erwartungsgemäß abgefangen wird, klappt das beim Zweiten nicht. Der vereinfachte Code lautet:
Sub test()
On Error GoTo errorhandler1
a = b / 0
On Error GoTo 0
errorhandler1:
If Err.Number <> 0 Then
On Error GoTo errorhandler2
a = b / 0 'Dieser Fehler wird nicht abgefangen
On Error GoTo 0
errorhandler2:
End If
End Sub
Was könnte ich ändern?
Danke!
Gruß
Ina