ich benutze die nach folgende Funktion zum Berechnen der Standardabweichung einer Datenreihe.
Dabei fällt auf, daß bei der mehrmaligen Verwendung der Formel die Berechnung ewig dauert und daß nach der Speicherung nur #### angezeigt werden, so daß jede Zelle wieder einzeln mit Return zur Berechnung angeschoben werden muß.
Kann mir jemad sagen woran dies liegen könnte?
Danke
Matthias
Function Jahresvolatilität(Jahr As Integer, Datumbereich As Range, ln_Renditen As Range) As Double
On Error Resume Next
Dim intvon%, intbis%, zelle
With Application.WorksheetFunction
For Each zelle In Datumbereich
If Year(zelle) = Jahr And Year(Cells(zelle.Row - 1, zelle.Column)) < Jahr Or .IsText(Cells(zelle.Row - 1, zelle.Column)) = True Then
intvon = zelle.Row
End If
If Year(zelle) = Jahr And Year(Cells(zelle.Row + 1, zelle.Column)) > Jahr Then
intbis = zelle.Row
Exit For
ElseIf zelle = "" Then
intbis = zelle.Row - 1
Exit For
End If
Next
Jahresvolatilität = .StDev(Range(Cells(intvon, ln_Renditen.Column), Cells(intbis, ln_Renditen.Column))) * ((.Count(Range(Cells(intvon, ln_Renditen.Column), Cells(intbis, ln_Renditen.Column))) + 1) ^ 0.5)
End With
End Function