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

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

Ü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

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

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

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

For Next Schleife in Excel VBA