Dim anfang As Integer: anfang = 1
Dim ende As Integer: ende = 15
Dim i As Integer 'Loop
Dim summe As Double: summe = 0#
 
For i = anfang To ende Step 1
    summe = summe + CDbl(1# / i)
Next i
 
MsgBox "Summe: " & Format(summe, "0.#############")