Verschachtelte For Next Schleife in Excel VBA

In diesem Tutorial zeige ich Euch wie eine verschachtelte For Next Schleife aufgebaut werden könnte. Ich werde dafür Zeilen und Spalten durchlaufen. Die eine Schleife ist für die Zeilen und die andere Schleife für die Spalten. Kombiniert wird dadurch der gesamte Bereich 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: Verschachtelte For Next Schleife

Dies ist eine relativ einfach aufgebaute verschachtelte For Next Schleife. Diese besteht einmal aus einer Schleife die Zeilenweise arbeitet und die andere Schleife Spaltenweise.

Wenn man die Schleifen einzeln ablaufen lassen würde, also nicht verschachtelt, dann würde die erste Spalte nur Einträge von Zeile 5 bis 20 vornehmen und das auch nur in einer einzige Spalte (wenn man die Variable Spalte durch 1 ersetzen würde)
Die zweite Schleife würde nur die Spalten 2 bis 6 also A bis F und zwar nur in einer einzigen Zeile abarbeiten (wenn man Zeile durch 1 ersetzen würde).
Kombiniert werden aber alle Zeilen und Spalten von B5 bis F20 mit den Einträgen gefüllt. Der Eintrag selbst besteht aus der Zeilennummer und der Spaltennummer.


Option Explicit

Sub VerschachtelteForNextSchleifeTutorial()

    Dim Zeile As Integer
    Dim Spalte As Integer
    
    For Zeile = 5 To 20
        
        For Spalte = 2 To 6
        
            Cells(Zeile, Spalte).Value = "Z: " & Zeile & " - S: " & Spalte
        
        Next Spalte
    
    Next Zeile
 
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

Option Explicit

Sub VerschachtelteForNextSchleifeTutorial()

Dim Zeile As Integer

Dim Spalte As Integer

For Zeile = 5 To 20

For Spalte = 2 To 6

Cells(Zeile, Spalte).Value = "Z: " & Zeile & " - S: " & Spalte

Next Spalte

Next Zeile

End Sub

Das Ergebnis sieht dann folgendermaßen aus:

Ergebnis Verschachtelte For Schleife in Excel VBA

Verschachtelte For Next Schleife in Excel VBA