Obwohl es nicht sehr oft auf dieser Website verwendet, könnten Sie sich in einer Situation, wo Sie die Do Until-Schleife in Excel VBA verwenden möchten. Code platziert zwischen Do Until und Schleife wird bis zum Teil nach dem Do wiederholt werden, bis der Fall ist.

Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:

Dim i As Integer

i = 1

Do Until i > 6

Cells(i, 1).Value = 20

i = i + 1

Loop

Ergebnis, wenn Sie auf das Befehlsschaltflächen auf dem Blatt klicken:

Excel VBA Do Until Loop

Erläuterung: bis i ist größer als 6, Excel VBA legt den Wert 20 in die Zelle am Schnittpunkt der Zeile i und der Spalte 1 und inkrementiert i um 1. Als Ergebnis wird der Wert 20 wird in die Kolonne A sechsmal platziert werden (nicht sieben, weil Excel VBA stoppt, wenn i gleich 7).