|
hallo an alle,
ich habe folgende Schleife geschrieben
Sub Summe10()
Dim Summe10 As Double
Dim i As Integer
Summe10 = 0
For i = 1 To 10
Summe10 = Summe10 + CDbl(1 / i)
Cells(36, 2).Value = Summe10
Debug.Print Summe10
Next i
End Sub
die Schleife berechnet mir die summe 1/i schrittweise für i =1 bis 10 und liefert folgende Ergebnis
1
1,5
1,83333333333333
2,08333333333333
2,28333333333333
2,45
2,59285714285714
2,71785714285714
2,82896825396825
2,92896825396825
ich möchte gerne meine Schleife erweitern, so dass diese mir die "summe der Summe" berechnet ob man es so ausdrüken kann weiss ich nicht, aber damit möchte ich sagen dass die schleife die Summe 1+1,5+ 1,83333333333+2,08333333333 +. .. .+ 2,928968..25 = 22,21 berechnen soll. sie sie die einzelne Schritte wieder Summieren.
ich habe schon alles versuch und habe es leider nicht hinbekommen. ich weiß, dass ich ganz nomal in excel berechnen kann, aber ich möchte es VBA berechnen
ich hoffe ich werde hier einen Lösung zu meinem Problem finden
Vielen Dank im Voraus
liebe Grüße
Hermann K.
|