---

Function addiereBisZuFormel(n As Integer) As Integer
    Dim summe As Integer
    Dim i As Integer

    summe = (n * (n + 1)) / 2
    addiereBisZuFormel = summe
End Function

---