ich habe festgestellt , daß bei selbstprogrammierten Funktionen es nicht möglich ist die Formel in einem Sheet zu haben und die Daten in einem anderen. Woran kann das liegen?
Hier meine Funktion:
Function semivolatilität(Bereich As Range, Mittelwert As Double) As Double
On Error Resume Next
Application.ScreenUpdating = False
Dim Anzahl%, varianz As Single, varianzsumme As Single, zelle
With Application.WorksheetFunction
Anzahl = .Count(Bereich)
varianzsumme = 0
For Each zelle In Bereich
If .IsNumber(zelle) = True Then
If zelle < Mittelwert Then
varianz = (zelle - Mittelwert) ^ 2
varianzsumme = varianzsumme + varianz
End If
End If
Next
semivolatilität = (varianzsumme / Anzahl) ^ 0.5
End With
End Function
Danke.
Matthias