Schleife mit "On Error GoTo Fehler"
03.06.2008 11:45:12
Koop
Ich habe eine Funktion, in der Eine "For Each cell" drei If-Bedingungen beinhaltet.
Die dritte IF-Bedingung sieht so aus:
If cellrow3 Mod 3 = 0 And column2 = "T" Then
Index = Index + 1
On Error GoTo Fehler
level = autolev / (autolev + manlev) <-----------------------------------------------
Worksheets("Tab3").Range(column & 549 + Index) = level
autolev = 0
manlev = 0
level = 0
Else
End If
Der gesamte code funktioniert einmal einwandfrei, aber wenn die For Each Schleife die Prozedur das zweite mal in die obenstehende If-Bedingung führt, dann gibt er mir den Fehler "Überlauf" aus. Warum klappt beim ersten Durchlauf die "On Error GoTo"-Anweisung und folgend nciht mehr?
Wär super, wenn mir einer helfen könnte!
Schon mal Danke und schöne Grüße!
Koop