Verwenden von For... Nächste Anweisungen

Für verwenden... Nächste Anweisungen, um einen Block von Anweisungen eine bestimmte Anzahl von Malen zu wiederholen. For-Schleifen verwenden eine Zählervariable, deren Wert sich mit jeder Wiederholung der Schleife erhöht oder verringert.

Die folgende Prozedur lässt den Computer 50 Mal einen Warnton erzeugen. Die For -Anweisung gibt die Zählervariable sowie deren Start- und Endwerte an. Die Next -Anweisung erhöht die Zählervariable um 1.

Sub Beeps() 
    For x = 1 To 50 
        Beep 
    Next x 
End Sub

Using the Stepkeyword, you can increase or decrease the counter variable by the value you specify. Im folgenden Beispiel wird die Zählervariable j bei jeder Wiederholung der Schleife um 2 erhöht. When the loop is finished, total is the sum of 2, 4, 6, 8, and 10.

Sub TwosTotal() 
    For j = 2 To 10 Step 2 
        total = total + j 
    Next j 
    MsgBox "The total is " & total 
End Sub

Verwenden Sie einen negativen Step -Wert, um die Zählervariable zu verringern. Dazu müssen Sie einen Endwert angeben, der kleiner ist als der Startwert. Im folgenden Beispiel wird die Zählervariable myNum bei jeder Wiederholung der Schleife um 2 verringert. Wenn die Schleife beendet ist, ist total die Summe von 16, 14, 12, 10, 8, 6, 4 und 2.

Sub NewTotal() 
    For myNum = 16 To 2 Step -2 
        total = total + myNum 
    Next myNum 
    MsgBox "The total is " & total 
End Sub

Hinweis

[!HINWEIS] Der Name der Zählervariable muss nach der Next -Anweisung nicht eingegeben werden. In den obigen Beispielen wurde der Name der Zählervariable hinzugefügt, um die Lesbarkeit zu verbessern.

Sie können ein For... Nächste Anweisung, bevor der Zähler seinen Endwert erreicht, indem die Exit For-Anweisung verwendet wird. Wenn beispielsweise ein Fehler auftritt, verwenden Sie die Exit For-Anweisung im True-Anweisungsblock einer If...Then...Else-Anweisung oder einer Select Case-Anweisung, die spezifisch auf diesen Fehler prüft. Wenn der Fehler nicht auftritt, wird wenn... Dann... Die Else-Anweisung ist False, und die Schleife wird weiterhin wie erwartet ausgeführt.

Siehe auch

• Konzeptuelle Visual Basic-Themen

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.