Excel VBA: Schleife mit Do Loop Anweisung (Teil 1)

Die Do Loop Anweisung ist eine weitere Möglichkeit eine Schleife in Excel VBA zu gestalten.

Es gibt insgesamt vier Handhabungen für Do Loop:

  1. Wenn eine Bedingung dem Wert True entspricht – vorgelagert.
  2. Wenn eine Bedingung dem Wert True entspricht – nachgelagert.
  3. Bis eine Bedingung dem Wert True entspricht – vorgelagert.
  4. Bis eine Bedingung dem Wert True entspricht – nachgelagert.

Hier im ersten Teil zeige ich Ihnen ein Beispiel für eine Do Loop Anweisung bei der die Anweisungen durchlaufen werden, wenn eine Bedingung dem Wert True entspricht.

Sub Do Loop_Teil_1()
Zähler = 0
Vorgabewert = 20
Do While Vorgabewert > 10
Vorgabewert = Vorgabewert – 1
Zähler = Zähler + 1
Loop
MsgBox „Die Schleife wurde “ & Zähler & “ mal durchlaufen.“
End Sub

Der Anfang der Schleife beginnt in der Zeile Do und endet in der Zeile Loop. In diesem Beispiel wird die Schleife solange durchlaufen wie die Bedingung „Vorgabewert > 10“ gleich True ist. Bei jedem Durchlauf wird die Variable „Vorgabewert“ um einen Wert verringert.

Nach dem zehnten Durchlauf hat die Variable den Wert 10 und die Schleife wird beendet. Sollte die Variable „Vorgabewert“ beim Start der Schleife den Wert 8 haben wird die Schleife gar nicht durchlaufen.

Wie es möglich ist, zumindest die Schleife einmal zu durchlaufen, obwohl die Bedingung False ist, zeige ich Ihnen in Teil 2.