ich hoffe mir kann hier einer helfen. Ich schlage mich seit Tagen mit der Funktion CountIf herum.
Folgendes Problem: Ich habe 2000 Fondkurse im Bereich IF1:IF2000 eingetragen. Daraus soll mit Hilfe einer Indikatorfunktion ( Gibt es sowas bei VBA?) eine Verteilungsfunktion entsthen.
Dazu habe ich mir überlegt, dass ich in relativ kleinen Schritten die Werte zähle, die kleiner gleich einem bestimmten Wert sind.
Folgendes Funktioniert:
Dim x(1 to 10) As Double
Dim k As Double
k= 43
Worksheets("Pfade").Select
For i =1 To 10
y = k + i
x(i) = WorksheetFunction.CountIf(Range("IF1:IF2000"), "<=" & y)
Next i
~f~
Wenn ich aber die Schrittweite auf 0.5 setzte ( natürlich dann auch ~f~ i= 0.5 to 4.5~f~ ) dann "funktioniert" die Funktion bei den Zahlen mit Nachkommastellen nicht. Ergbenis ist dann immer Null.
Das kann aber nicht sein, wenn schon bei ~f~ y=44~f~ die Funktion gleich 1 ist, dann muss bei ~f~ y=44,5 die Funktion auch mindestens 1 sein.