---

Sub addition_mit_for_schleife()
    Dim start As Long
    Dim ende As Long
    Dim schrittweite As Long
    Dim ergebnis As Long

    start = 10
    ende = 20
    schrittweite = 2

    For i = start To ende Step schrittweite
        ergebnis = ergebnis + i
        ' Ansicht -> Direktfenster bitte aktivieren
        Debug.Print ergebnis & " |  i=" & i
    Next i
    MsgBox ergebnis
End Sub

---