Thema Datum  Von Nutzer Rating
Antwort
Rot do loop until mit zwei bedingungen
19.04.2021 13:46:17 peter
NotSolved
19.04.2021 15:59:17 Mase
NotSolved
19.04.2021 16:09:19 Gast42899
NotSolved
19.04.2021 21:00:09 Mase
NotSolved
19.04.2021 18:22:39 Gast7777
Solved

Ansicht des Beitrags:
Von:
peter
Datum:
19.04.2021 13:46:17
Views:
86
Rating: Antwort:
  Ja
Thema:
do loop until mit zwei bedingungen

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot do loop until mit zwei bedingungen
19.04.2021 13:46:17 peter
NotSolved
19.04.2021 15:59:17 Mase
NotSolved
19.04.2021 16:09:19 Gast42899
NotSolved
19.04.2021 21:00:09 Mase
NotSolved
19.04.2021 18:22:39 Gast7777
Solved