Guten Tag!
Kannst du bitte mal noch ein paar Worte dazu verlieren? Ich verstehe nicht was dein Code macht! Und außerdem gibt er mir egal was ich reingeben immer 21 als Ergebnis!
1. .Range("A2", .Cells(.Rows.Count, "A").End(xlUp))
Was setzt das für eine Range? Ich bin verwirrt, weil ich erstens nicht weis, was das Komma in der Klammer soll (ich kenne nur Range(X:Y)) und zweitens gibt mir Debug.Print .Cells(.Rows.Count, "A").End(xlUp) immer ne 1 aus?
2.
i = 1
j = .Count
Do While i < j
m = (i + j) \ 2
If q > .Cells(m, 1).Value Then
j = m - 1
ElseIf q < .Cells(m, 1).Value Then
i = m + 1
Else
QuantileFind = .Cells(m, 1).Offset(0, 1).Value
Exit Function
End If
Loop
Was Zählt j?
Was genau verfolgst du hier für ein Ziel?
Gruß
Till
|