Errorhandling

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Errorhandling
von: Ina
Geschrieben am: 01.11.2003 17:22:28

Hallo,

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
Bild


Betrifft: AW: Errorhandling
von: PeterW
Geschrieben am: 01.11.2003 17:46:54

Hallo Ina,

du könntest beispielsweise die Division durch 0 mit einer Prüfung verhindern:

If x <> 0 Then
a = b / x
End If

oder, sofern die Division in einer Schleife durchgeführt wird mit On Error Resume Next die Schleife fortsetzen.

Gruß
Peter


Bild


Betrifft: AW: Errorhandling
von: Ina
Geschrieben am: 01.11.2003 18:32:25

Danke, Peter,

mit dem 'Resume Next' funktioniert das.

...obwohl mir nicht ganz klar ist, warum es mit dem 'On Error Goto' nicht geklappt hat.

Gruß
Ina


Bild


Betrifft: AW: Errorhandling
von: FP
Geschrieben am: 01.11.2003 19:07:12

Hallo Ina,

nach einem ON ERROR muss ein RESUME erfolgen, sonst kommt es zu einem Überlauffehler!

ein Beispiel:


Sub test()
  On Error GoTo errorhandler1
    a = b / 0
Test2:
  On Error GoTo errorhandler2
    a = b / 0
errorhandler1:
  Resume Test2
errorhandler2:
End Sub


Servus aus dem Salzkammergut
Franz


Bild


Betrifft: AW: Errorhandling - Nachtrag
von: FP
Geschrieben am: 01.11.2003 19:11:49

Hallo Ina,

das "Sprungziel" darf dabei natürlich auch innerhalb der Fehlerbehandlung liegen.

Beispiel:

Sub test()
  On Error GoTo errorhandler1
    a = b / 0
  Exit Sub
errorhandler1:
  MsgBox "Fehler #1"
  Resume Test2
Test2:
  On Error GoTo errorhandler2
    a = b / 0
errorhandler2:
  MsgBox "Fehler #2"
End Sub


Servus aus dem Salzkammergut
Franz


Bild


Betrifft: AW: Errorhandling - Nachtrag
von: Ina
Geschrieben am: 01.11.2003 22:21:02

Hallo Franz,

das Resume war der Schlüssel, Danke!

Gruß
Ina


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Farbige Zellen"