Excel aufmöbeln mit VBA - Fachbereich Mathematik und ...

9 Die Sprachsyntax von Visual Basic
Loop While(Wiederholungsbedingung)
nächste Anweisung
Der Block zwischen Do und Loop While heißt Schleifenkörper, dessen Anweisungen
werden mindestens einmal ausgeführt. Solange die Wiederholungsbedingung wahr
ist, wird der Schleifenkörper immer wieder von oben an durchlaufen. Die Anweisungen
innerhalb des Schleifenkörpers müssen demnach irgendwann zur Nichterfüllung der
Wiederholungsbedingung führen, da sonst die Schleife unendlich oft wiederholt würde.
Sobald die Wiederholungsbedingung zum ersten Mal nicht erfüllt ist, wird das Programm
mit der nächsten Anweisung fortgesetzt. Bitte beachten Sie also:
• Die Einrückungen nach der Do-Anweisung.
• Die Wiederholungsbedingung steht in runden Klammern.
• Die Schleife wird solange wiederholt, wie die Wiederholungsbedingung wahr ist.
• Eine so genannte Idiotenschleife entsteht, wenn die Wiederholungsbedingung immer
wahr bleibt.
Diese Schleife wird gerne bei Eingaben verwendet:
Dim Jahr As Long
Do
Jahr = CInt(InputBox("Bitte Geburtsjahr eingeben: ","1978"))
Loop While (1900 > Jahr Or Jahr > 1990)
Der Anwender hat den Abbruch selbst in der Hand, sobald das Eingabejahr zwischen
1900 und 1990 liegt, wird die Schleife verlassen.
Die Funktion InputBox(Text, Anfangswert) öffnet einen Standarddialog, wo
der erste Parameter als Erläuterung und der zweite in einem Textfeld erscheint. Der
Inhalt des Textfelds kann vom Anwender geändert werden und wird nach dem Drücken
der OK-Taste als Wert der Funktion zurückgegeben.
9.6.13 Schleifen mit Abbruchbedingung am Ende
Diese Schleifen verwendet eine Abbruchbedingung am Ende. Das Schlüsselwort While muss
dem Schlüsselwort Until weichen
Do
Anweisung(en)
Loop Until(Abbruchbedingung))
Die Do. . . Loop-While Schleife wird solange wiederholt, wie eine bestimmte Wiederholungsbedingung
wahr ist, während diese abbricht, wenn eine Abbruchbedingung wahr
wird. Daher ist die Abbruchbedingung gerade die logische Verneinung der Wiederholungsbedingung.
Die oben erwähnte Schleife kann entsprechend umformuliert werden:
150