For Each Schleife in Excel VBA

In diesem Tutorial zeige ich Euch wie Ihr die For Each Schleife anwenden könnt. Die For Each Schleife ist hervorragend geeignet um ein Array abzuarbeiten. Selbst wenn man einen Bereich von Zellen der For Each Schleife übergibt wird diese Schritt für Schritt abgearbeitet.

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 Each Schleife in Excel VBA

In nachfolgenden Script zeige ich Euch wie Ihr die For Each Schleife anwenden könnt.

Die For Each Schleife arbeitet die Zellen A1 bis D10 ab. Die Reihenfolge der Abarbeitung läuft Zeilenweise ab. Also wird erst eine Zeile Zellenweise von A1 bis D1 durchlaufen bis dann in A2 weitergemacht wird. Anschließend läuft es diese Zeile bis D2 ab und so weiter bis zur Zelle D10.

In dem Script wurde auch eine If Anweisung eingebaut die dafür sorgt, dass die For Each Schleife abgebrochen wird, sobald der Wert der Zelle größer als 30 ist.


Sub ForEachTutorial()

    For Each EinzelneZelle In Range("A1:D10")
    
        EinzelneZelle.Value = EinzelneZelle.Value + 10
        
        If EinzelneZelle.Value > 30 Then
            Exit For
        End If
            
    Next

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

Sub ForEachTutorial()

For Each EinzelneZelle In Range("A1:D10")

EinzelneZelle.Value = EinzelneZelle.Value + 10

If EinzelneZelle.Value > 30 Then

Exit For

End If

For Each Schleife in Excel VBA