Ich bin leider ein kleiner Anfänger...
Wenn mir trotzdem einer kurz erklären könnte, um was genau es sich bei der Excel Funktion DISCRINV handelt..., das wäre spitze!
Liebe Grüße und vielen Dank.
Sonja.
Function DISCRINV(ByVal randprob As Double, Werte As Object, Wahrscheinlichkeiten As Object)
On Error GoTo ENDE
Dim i As Integer, cumv As Double, Zelle As Object
If Werte.Count <> Wahrscheinlichkeiten.Count Then
DISCRINV = CVErr(2015)
Exit Function
For Each Zelle In Wahrscheinlichkeiten
i = i + 1
cumv = cumv + Zelle.Value
If randprob < cumv Then
DISCRINV = Werte.Cells(i).Value
Exit Function
End If
Next Zelle
If randprob < cumv + 0.001 Then
DISCRINV = Werte.Cells(i).Value
Exit Function
End If
ENDE: DISCRINV = CVErr(2015)
End Function