ich habe folgendes Makro, das mir immer wieder einen Überlauf erzeugt. Es passiert ab einer Zeile in der der Wert in Cells(z, 4) = 0 ist. Wie kann ich das verhindern bzw. wie kann ich weiterspringen falls eine Zeile mit 0-Werten kommt?
Sub C_Abweichung()
'Abweichung in Prozent
Dim intReihen As Integer
Dim intAnfang As Integer
Dim Prozent As Double
intReihen = Cells(Rows.Count, 1).End(xlUp).Row
intAnfang = 1 'Startzeile festlegen
Do Until intAnfang > intReihen 'Wenn Anfang grösser Reihen, dann beenden, da Tabelle _
zuende
For z = intAnfang To intReihen
Prozent = (Cells(z, 3).Value / Cells(z, 4).Value) - 1
Cells(z, 6) = Prozent
Next
Cells(z, 6) = Prozent
Prozent = 0
intAnfang = z + 1
Loop
End Sub
Vielen Dank!
Gruss,
Christian