ich wollte folgendes Berechnen:
x = 1/n * Summe (x_{i}-x_{i-1})/x_{i-1}
Ich habe im folgenden Excel mein Problem mal visualisiert:
https://www.herber.de/bbs/user/81549.xlsm
Es geht um die folgende Funktion:
Option Explicit
Private objX() As Variant, objY() As Variant, lngCount As Long Function RatioMean(strSheet As String) Dim dblSumAverageReturn As Double Dim dblAverageReturn As Double Dim varElement As Variant For varElement = 1 To lngCount - 1 dblSumAverageReturn = dblSumAverageReturn + (objY(varElement + 1) - objY(varElement)) / _ objY(varElement) Next dblAverageReturn = dblSumAverageReturn / lngCount End Function
Sub prcDatenObjekt_erzeugen(ByVal strSheet As String)
Dim arrX, lngX As Long
With Sheets(strSheet)
arrX = .Cells(5, 2).Resize(Application.WorksheetFunction.Count(.Range(.Cells(5, 2), _
.Cells(Rows.Count, 1).End(xlUp))))
End With
lngCount = 0
For lngX = LBound(arrX) To UBound(arrX)
lngCount = lngCount + 1
ReDim Preserve objX(0 To lngCount)
objX(lngCount) = arrX(lngX, 1) * 1
Next lngX
End Sub
Danke für die Hilfe.Viele Grüße,
Michael