AW: Standardabweichung und Steigung
17.06.2012 20:30:57
Michael
Hallo Franz,
super Danke für die Antwort. Sieht super aus. Leider ist mein Problem komplizierter (wieso sollte es auch anders sein). Um kurz alles zu erklären. ich habe Messreihen die in verschiedenen Jahren liefen. Da berechne ich z.B. den Mittelwert so:
Function Mittelwert2(intYear As Integer, strSheet As String)
Dim objX As Object, objY As Object
Dim arrX, arrY, lngX As Long
With Sheets(strSheet)
arrX = .Cells(8, 1).Resize(Application.Count(.Range(.Cells(8, 1), .Cells(Rows.Count, 1). _
_
End(xlUp))))
arrY = .Cells(8, 1).Resize(Application.Count(.Range(.Cells(8, 1), .Cells(Rows.Count, 1). _
_
End(xlUp)))).Offset(, 4)
End With
Set objX = CreateObject("Scripting.Dictionary")
Set objY = CreateObject("Scripting.Dictionary")
For lngX = LBound(arrX) To UBound(arrX)
If Year(arrX(lngX, 1)) = intYear Then
objX(lngX) = arrX(lngX, 1) * 1
objY(lngX) = arrY(lngX, 1) * 1
End If
Next lngX
Mittelwert2 = WorksheetFunction.Average(objY.items)
End Function
Die Steigung berechne ich so:
Function Steigung2(intYear As Integer, strSheet As String)
Dim objX As Object, objY As Object
Dim arrX, arrY, lngX As Long
With Sheets(strSheet)
arrX = .Cells(8, 1).Resize(Application.Count(.Range(.Cells(8, 1), .Cells(Rows.Count, 1). _
_
End(xlUp))))
arrY = .Cells(8, 1).Resize(Application.Count(.Range(.Cells(8, 1), .Cells(Rows.Count, 1). _
_
End(xlUp)))).Offset(, 4)
End With
Set objX = CreateObject("Scripting.Dictionary")
Set objY = CreateObject("Scripting.Dictionary")
For lngX = LBound(arrX) To UBound(arrX)
If Year(arrX(lngX, 1)) = intYear Then
objX(lngX) = arrX(lngX, 1) * 1
objY(lngX) = arrY(lngX, 1) * 1
End If
Next lngX
Steigung2 = WorksheetFunction.Slope(objY.items, objX.items)
End Function
Was ich nun mache möchte ist:
1.) Den Mittelwert2 mit der Steigung2 Multiplizieren.
2.) Das gleiche für die Std. Abweichung. D.h. Den Mittelwert2 verwenden um die Std. Abweichung zu bestimmen aber der Mittelwert sollte mit der Steigung Multipliziert werden.
Danke für die Hilfe.
Viele Grüße
Michael