VBA – Programmierung mit Excel Grundlagen

Seite 44
Das Sprachkonzept von VBA
Die Anweisungsfolge:
Zhl = 1
Vergl = ActiveSheet.Range("M25").Value
Do
Zhl = Zhl + 1
ActiveSheet.Range("A3").Value = Zhl
If Zhl = Vergl Then
Exit Do
End If
Loop While Zhl < 301
bricht die Schleife ab, sobald der Wert von ZHL gleich dem Wert in der Zelle M25 ist..
5.4.2.3 For ... Next – Anweisung
Die FOR ... NEXT - Schleife legt die Anzahl der Wiederholungen des Anweisungsblocks
über eine Zählervariable fest. Die Bedingung wird im Kopf der Schleife definiert Der
Zähler muß nicht, wie in den bisher vorgestellten Schleifenformen, innerhalb der Schleife
verändert werden.
Die allgemeine Form des Anweisung lautet:
For Zähler = Anfangswert To Endwert [ Step Schrittweite]
Anweisung(en)
[Exit Do]
Anweisung(en)
.
Next [Zähler]
Die numerische Variable ZÄHLER4 wird bei jedem Schleifendurchlauf um den Wert von
Schrittweite inkrementiert oder dekrementiert (je nach Vorzeichen von Schrittweite).
Vor dem ersten Schleifendurchlauf wird der Wert von Zähler auf Anfangswert gesetzt und
die Anweisungen solange wiederholt, bis der Wert von ZÄHLER größer (positive
Schrittweite) oder kleiner (negative Schrittweite) als ENDWERT ist.
✘ Wird SCHRITTWEITE nicht angegeben, gilt SCHRITTWEITE = 1.
➨ Der Wert von ZÄHLER sollte innerhalb der Schleife der FOR ... NEXT - Anweisung
nicht verändert werden, weil es i.d.R. zu unnötigen Fehlern führt.
Dim N As Integer
For N = 1 To 21 Step 2
FeldA.AddItem = N ^ 2
Next
berechnet die Quadrate der Zahlen 1, 3, 5, 7, ..., 19, 21.
4 Ist numerischauch, kann Element eines benutzerdefinierten Datentyps sein.