Schleifen - Programmteile wiederholen
'Forschleife mit Abbruchbedigung
For iCounter = 1 To 100
'Anweisung ...
If Bedigung = Wert Then
Exit For
End If
Next iCounter
'Do-Schleife
Do
'Anweisung ...
If IsEmpty(Cells(Zeile, Spalte)) Then Exit Do
Zeile = Zeile + 1
Loop
'Do-While-Schleife
Do While Not IsEmpty(Cells(Zeile, Spalte))
'Anweisung ...
Zeile = Zeile + 1
Loop
'Do-Until-Schleife
Do Until IsEmpty(Cells(Zeile, Spalte))
dValue = dValue + Cells(Zeile, Spalte).Value * 1.2
Zeile = Zeile + 1
Loop