VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von:
Timi

Datum:
20.06.2011 13:38:20

Views:
2389

Rating:

Antwort:

Thema:
Expected Shortfall

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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen