Fehlerbehandlung in Schleifen

Hallo liebes Forum,
ich habe in einem etwas längeren Code ein Problem mit der Fehlerbehandlung in einer Schleife. Zur Übersichtlichkeit habe ich es das Problem in wenigen Zeilen reproduziert.
Es geht darum, dass ich gerne auf einen bestimmten Fehler in einer Schleife reagieren möchte. Die Schleife soll danach weiterlaufen und die Fehlerbehandlung weiterhin aktiviert sein.
Im folgenden Code sollte eigentlich 5 Mal die 0 ausgegeben werden, weil ich möchte, dass die ausnahme die Variable auf 0 setzt, wenn es zur Division durch 0 kommt. Aber nachdem das beim ersten Mal für k = 1 noch funktioniert, funktionert es für k = 2 nicht mehr.

Sub test1() Dim k As Integer Dim i As Long For k = 1 To 5 On Error GoTo ausnahme i = k / 0 ausnahme: If Err.Number = 11 Then i = 0 MsgBox i Next k End Sub

Kann mir jemand sagen, woran das liegt und ob man das beheben kann?
Vielen Dank und liebe Grüße
Kieks

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
das Problem ist, wenn der Fehlersprung einmal ausgeführt wurde, befindet sich VBA im Fehlerbehandlungsmodus und in diesem ist kein weiterer Fehlersprung mehr möglich, dazu muss der Fehlerbehandlungsmodus erst wieder beendet werden, was bspw mit dem Befehl "Resume" oder "Resume Next" passiert.
das könnte als Code dann so aussehen:


Sub test1()
Dim k As Integer
Dim i As Long
On Error GoTo ausnahme
For k = 1 To 5
i = k / 0
MsgBox i
Next k
On Error GoTo 0
Exit Sub
ausnahme:
If Err.Number = 11 Then i = 0
Resume Next
End Sub

Eine etwas andere Lösungsmehthode für das Problem könnte so aussehen:

Sub test2()
Dim k As Integer
Dim i As Long
On Error Resume Next
For k = 1 To 5
Err.Number = 0
i = k / 0
If Err.Number = 11 Then i = 0
MsgBox i
Next k
On Error GoTo 0
End Sub

was jetzt besser ist, hängt von der konkreten Aufgabenstellung ab.
Gruß Daniel

Sub test1() Dim k As Integer Dim i As Long On Error Resume Next For k = 1 To 5 i = k / 0 If Err.Number = 11 Then i = 0 MsgBox i Next k On Error GoTo 0 End Sub

Option Explicit Function wieIsses(ByVal k&, ByVal w0&) Dim i On Error Resume Next i = k / w0 If Err.Number = 11 Then wieIsses = 0 Else wieIsses = i On Error GoTo 0 End Function Sub test1() Dim k As Integer For k = 1 To 5 MsgBox wieIsses(k, 0) Next k End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehlerbehandlung in Schleifen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread