Microsoft Office Tutorials and References
In Depth Information
3.5.2 Do-Loop-Schleife
[ Exit Do ]
[ Anweisungen ]
Loop
oder
Do
[ Anweisungen ]
[ Exit Do ]
[ Anweisungen ]
Loop { While | Until } Bedingung
In den folgenden Prozeduren werden drei der fünf Möglichkeiten
genutzt. Es sollen jeweils so lange Zahlen addiert werden, bis die Summe
der Zahlen 5 erreicht. Da die Zahlen durch einen Zufallszahlengenerator
erzeugt werden, ist die Anzahl der Schleifendurchläufe nicht vorhersag-
bar.
Zufallszahlen-
generator
Hinweis
Der Zufallszahlengenerator wird mit Hilfe der Funktion Rnd() realisiert.
Diese liefert quasizufällige Zahlen zwischen 0 und 1. Der Zufallszahlengene-
rator muss mit Hilfe der Anweisung Randomize vor der Benutzung initialisiert
werden. Ansonsten könnte es vorkommen, dass immer die gleichen Zahlen
geliefert werden, die dann eben nicht mehr zufällig sind.
Rnd(), Randomize
Das erste Beispiel:
Sub DoLoop1()
Dim i As Integer
Dim Summe As Single
ThisWorkbook.Worksheets("Tabelle2").Activate
Range("C1:C20").Clear
Randomize
i=1
Summe = 0
Do
Summe = Summe + Rnd
Cells(i, 3).NumberFormatLocal = "0,000"
Cells(i, 3).Value = Summe
i=i+1
Loop While Summe < 5
Cells(i, 3).Value = "Fertig"
End Sub
Search JabSto ::




Custom Search