Hallo zusammen,
Ich versuche in VBA eine Expected Shortfall funktion zu basteln und kriegs leider einfach nicht hin. Kann sich mal jemand den Code hier anschauen?
CKEditor funktoniert leider nicht, da ich keine Installationsbewilligung habe im Geschäft
Function ES(daten As Range, confint As Double)
N = Excel.WorksheetFunction.Count(daten)
ES = N * confint
Dim sorted() As Double
'Sortieren
For i = 1 To N
sorted(i) = Excel.WorksheetFunction.Small(daten, i)
Next i
'Expected Shortfall
If ES < 1 Then
Exit Function
End If
For j = 1 To ES
Summe = sorted(j) + Summe
Next j
ES99 = Excel.WorksheetFunction.Average(Summe)
End Function
Daten ist eine Reihe von Werten, dessen ES ich möchte
Vielen Dank
Timi
|