Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

On Error go to in for next schleife

On Error go to in for next schleife
06.08.2015 17:42:35
Bonduca
Hallo,
Wenn durch 0 dividiert wird, soll der Code die Zelle leer lassen und bei der nächsten weitermachen.
Er geht mir aber nicht mehr in die For Next Schleife rein. Ich hab schon einiges ausprobiert, aber es klappt nicht. :(
Sub Dividieren()
On Error GoTo Sprungmarke
Dim Divid As Double
Worksheets("A").Activate
For i = 1 To 3
neubeginnen:
Divid = Worksheets("A").Cells(2 + i, 3) / Worksheets("A").Cells(3, 1)
Worksheets("B").Cells(i + 4, 2) = Worksheets("A").Cells(i + 2, 4)
Worksheets("B").Cells(i + 4, 3) = Divid
Next
Sprungmarke:
i = i + 1
GoTo neubeginnen
End Sub
LG

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: On Error go to in for next schleife
06.08.2015 17:50:31
Nepumuk
Hallo,
an Stelle von Goto so:

Resume Neubeginnen

Gruß
Nepumuk

AW: On Error go to in for next schleife
06.08.2015 18:04:43
Nepumuk
Hallo,
damit du nicht in eine Endlosschleife gerätst, so:
Sub Dividieren()
On Error GoTo Sprungmarke
Dim Divid As Double
Worksheets("A").Activate
For i = 1 To 3
Divid = Worksheets("A").Cells(2 + i, 3) / Worksheets("A").Cells(3, 1)
Worksheets("B").Cells(i + 4, 2) = Worksheets("A").Cells(i + 2, 4)
Worksheets("B").Cells(i + 4, 3) = Divid
neubeginnen:
Next
Exit Sub
Sprungmarke:
Resume neubeginnen
End Sub

Gruß
Nepumuk

Anzeige
AW: On Error go to in for next schleife
06.08.2015 18:02:29
Daniel
Hi
wenn die Fehlerursache eindeutig ist und ohne grossen Aufwand geprüft werden kann, sollte man keine Fehlerbehandlung einbauen, sondern die mögliche Fehlerursache direkt abfragen, so das erst gar kein Fehler entsteht.
hier also:

If Worksheets("A").Cells(3, 1)  0 Then
du verwendest als Divisor immer die gleiche Zelle.
wenn in dieser Zelle ein Fix-Wert steht, dann kannst du die Prüfung auch ausserhalb der Schleife machen, weil sich dann der Divisor innerhalb der Schleife nicht mehr ändert.
in deinem Beispiel ist die Prüfung innerhalb nur dann erforderlich wenn in der Zelle A3 eine Formel steht, die von den Zellen, die in der Schleife geändert werden abhängig ist und so während dem Schleifenlauf ihren Wert ändern kann.
Gruß Daniel

Anzeige
AW: On Error go to in for next schleife
07.08.2015 12:16:36
Bonduca
Klasse. Vielen Dank! Es funktioniert :D

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige