On Error go to in for next schleife
06.08.2015 17:42:35
Bonduca
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