VBA – Programmierung mit Excel Grundlagen

5.4.1.5 Die Choose - Funktion
Seite 42
Die Funktion CHOOSE, mit der Syntax:
Choose(Index, Ausdruck1 [, Ausdruck2]...)
ebenfalls mit der SELECT CASE - Konstruktion vergleichbar:
Das Sprachkonzept von VBA
PersGrösse = Choose(GRIndex, "klein", "mittel", "gross",
"riesig")
gibt in Abhängigkeit von Wert eines ganzzahligen Indexes den Wert aus einer Liste der
Alternativen aus, dessen Listenposition dem Indexwert entspricht.
5.4.2 Schleifenstrukturen
Mit Hilfe von Schleifenstrukturen lassen sich bestimmte Anweisungsfolgen mehrmals,
abhängig von einer bestimmten Bedingung ausführen. Die Anzahl der Schleifendurchläufe
wird durch den Wahrheitswert eines Ausdrucks - der SCHLEIFENBEDINGUNG - oder durch den
Wert eines numerischen Ausdrucks - des SCHLEIFENZÄHLERS - definieren.
5.4.2.1 While – Schleife
Auf der WHILE – Schleife sind die meisten Schleifenstrukturen aufgebaut. In dieser
Schleife wird am Anfang eine Bedingung geprüft und der Schleifenkörper nur dann
durchlaufen, wenn die Prüfung den Wert TRUE liefert:
While Bedingung
.
Anweisungen
.
Wend
Liefert die Prüfung den Wert FALSE, wird die Schleife verlassen und das Programm mit
den Anweisungen nach WEND fortgesetzt.
✘ Man sollte bei WHILE – Schleifen unbedingt darauf achten, daß innerhalb der Schleife
eine Möglichkeit besteht, die Bedingung auf den Wert FALSE laufen zu lassen, da sonst
eine solche Schleife leicht zu einer Endlosschleife werden kann und das Programm dann
nur noch über die Tastenkombination STRG + ALT + ENTF abgebrochen werden kann !
Sub Versuch ()
Dim Umsatz(1 To 20)
Wert = 1
While Wert < 20
Wert = Wert + 1
Umsatz(Wert) = 5
Wend
End Sub
5.4.2.2 Do...Loop – Anweisung
Die DO...LOOP – Anweisung wird verwendet, um Anweisungen auszuführen, solange oder
bis bestimmte Bedingungen erfüllt sind. Sie ist sicherer als die einfache While – Wend –
Anweisung, weil sie beispielsweise über Exit Do (s. weiter im Text) das vorzeitige
Verlassen der Schleife ermöglicht.
In der Form:
Do [While Bedingung]
.
Anweisung(en)
[Exit Do]
Anweisung(en)
.
Loop [While Bedingung]