Hallo liebe Forumsmitglieder,
Wenn ich folgenden Code ausführe, bekomme ich die Fehlermeldung "Divison durch Null".
Cells(i, 1).Value = Int(Rnd * 10)
Do
Cells(i, 3).Value = Int(Rnd * 10)
Loop Until Cells(i, 3).Value <> 0 And Cells(i, 1).Value Mod Cells(i, 3).Value = 0
T(i) = Cells(i, 1).Value / Cells(i, 3).Value
Wenn ich die zweite Bedingung nach AND weglasse, funktioniert es. Ich brauche aber beide Bedingungen. Jemand ne Idee, wo der Fehler liegt.
Vielen Dank fü eure Hilfe.
Beste Grüße
|