In diesem Tutorial zeige ich Euch anhand von einem sehr einfach Beispiel wie Ihr die For Next Schleife benutzen könnt. Ich zeige Euch auch gleich noch wie Ihr die Schleife vorzeitig mit Exit For beenden könnt und wie Ihr mit einer If Anweisung etwas auslassen könnt.
Das Startvideo der VBA Tutorial Serie auf YouTube findet Ihr hier
Die Playlist meiner VBA Tutorial Serie auf YouTube findet Ihr hier
Benutzt zum Üben eine separate Tabelle für Testzwecke oder eine Kopie des Originals damit Euch keine Daten verloren gehen.
Im nachfolgenden Script zeige ich Euch wie Ihr die For Next Schleife anwenden könnt.
Die Variable i dient als Zählervariable. Die For Schleife ist so aufgebaut dass sie von 1 bis 15 durchlaufen wird. Die Zählervariable ist beim ersten Durchlauf 1, beim zweiten Durchlauf 2 und so weiter bis 15 erreicht wird. Danach wird die Schleife verlassen. Bei jedem Durchlauf wird der Wert an die Zählervariable übergeben. Das heißt dass beim ersten Durchlauf die Variable i 1 ist und beim letzten Durchlauf 15.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
'Option Explicit Sub ForNextTutorial() 'Dim i As Integer For i = 1 To 15 Cells(i, 1).Value = i Next End Sub |
Über die If Anweisung bestimmen wir dass nur ein Eintrag stattfinden soll wenn die Variable kleiner oder größer 5 ist. Also wird 5 ausgelassen.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
'Option Explicit Sub ForNextTutorial() 'Dim i As Integer For i = 1 To 15 If i <> 5 Then Cells(i, 1).Value = i End If Next End Sub |
Hier habe ich eine zusätzliche Abbruchbedingung eingetragen. Wenn I 5 erreicht wird durch die If Anweisung die Schleife mit Exit For verlassen.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
'Option Explicit Sub ForNextTutorial() 'Dim i As Integer For i = 1 To 15 If i <> 5 Then Cells(i, 1).Value = i End If If i = 5 Then Exit For Next End Sub |