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
Benutzt zum Üben eine separate Tabelle für Testzwecke oder eine Kopie des Originals damit Euch keine Daten verloren gehen.
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.
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 Next End Sub |