---

Geschrieben von Susi89 am 02.02.2016 um 15:24:

  Dividier-Schleife

Meine Frage:
Hallo, ich hab hier eine Aufgabe mit der ich Probleme habe.
Aufgabe: Schreiben Sie ein VBA-Programm: Teilen Sie die Zahl 123456 solange durch 2,5, bis das Ergebnis kleiner als 1 ist und geben Sie die Anzahl der Durchläufe aus sowie das Ergebnis aus.



Meine Ideen:
Dim i As Long,
Dim a As Double
i=123456
a=2,5
i=i/2,5
Loop while i<1

Ich weiß aber nicht wie ich das mit der Anzahl der Durchläufe noch machen soll.

---

Geschrieben von eulerscheZahl am 02.02.2016 um 16:11:

 

Du brauchst eine weitere Variable, die du bei jedem Schleifendurchlauf um 1 erhöhst, also einen Schleifenzähler.
Und zum while solltest du dir nochmal die Syntax anschauen.

---

Geschrieben von Susi89 am 02.02.2016 um 19:13:

 

Erstmal vielen Dank für die schnelle Antwort.

Vielleicht so:

Dim i, s As Long,
Dim a As Double
i=123456
a=2,5
s=0
Do
i=i/a
s=s+1
Loop while i<1

Sorry ich bin nicht so gut in programmieren.

---

Geschrieben von eulerscheZahl am 03.02.2016 um 18:02:

 

while i<1 macht keinen Sinn, du sollst es machen, solange i größer gleich ist also 1.
Ob die Syntax so korrekt ist, weiß ich nicht (habe kein MS Office zum Testen). Bei der verlinken Seite sieht die Syntax etwas anders aus.