die Funktion KRITBINOM in Excel macht mir Probleme:
Beispiel:
KRITBINOM(1;0.5;0.025) liefert 0.
...
KRITBINOM(1032;0.5;0.025) liefert 485.
KRITBINOM(1033;0.5;0.025) liefert #ZAHL.
Die Hilfe hierzu erklärt das nicht.
Wenn man das ganze in VBA verpackt, kommt an entsprechender Stelle die Meldung:
Laufzeitfehler '1004':
Die CritBinom-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden.
Sub test()
Dim p As Double, a As Double
Dim i As Integer
p = 0.5
a = 0.05
With ThisWorkbook.Worksheets(1)
For i = 1 To 2000
.Cells(i, 10).value = _
Application.WorksheetFunction.CritBinom(i, p, a / 2)
Next i
End With
End Sub
Ich habe verschiedene Zahlenkombinationen durchgespielt, bin aber nicht dahinter gekommen, was hier die Limitierung ist.
Weiss hier jemand eine Lösung? Kann das bitte jemand in anderen Excel-Versionen (>Excel '97) ausprobieren und berichten?
Dank & Gruß,
Michael