---

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

    start = 20
    ende = 10
    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

---