For Next Schleife in Excel VBA
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
Achtung:
Benutzt zum Üben eine separate Tabelle für Testzwecke oder eine Kopie des Originals damit Euch keine Daten verloren gehen.
Video zu diesem Tutorial:
Beispielscript mit der For Next Schleife in Excel VBA
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.
'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.
'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.
'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