Microsoft Office Tutorials and References
In Depth Information
3.5.2 Do-Loop-Schleife
Do
Summe = Summe + Rnd
Cells(i, 3).NumberFormatLocal = "0,000"
Cells(i, 3).Value = Summe
i=i+1
Loop Until Summe >= 5
Cells(i, 3).Value = "Fertig"
End Sub
Zur Erläuterung der zweiten Prozedur:
Der Anfang dieser Prozedur unterscheidet sich nicht vom Anfang der
vorherigen Prozedur, daher wird er hier nicht aufgeführt.
Zur Steuerung der Schleife wird diesmal mit Loop Until geprüft, ob
die Summe den Wert von 5 erreicht oder überschritten hat. In diesem
Fall wird die Schleife nicht nochmals durchlaufen.
Loop Until
Das letzte Beispiel:
Sub DoLoop3()
.....
Do
Summe = Summe + Rnd
Cells(i, 3).NumberFormatLocal = "0,000"
Cells(i, 3).Value = Summe
i=i+1
IfSumme>=5ThenExitDo
Loop
Cells(i, 3).Value = "Fertig"
End Sub
Zur Erläuterung der dritten Prozedur:
Zur Steuerung der Schleife wird diesmal innerhalb der Schleife
geprüft, ob die Summe den Wert von 5 erreicht oder überschritten
hat. In diesem Fall erfolgt ein unmittelbares Verlassen der Schleife mit
Exit Do .
Exit Do
Search JabSto ::




Custom Search