Worksheetfunction.Rank auf Matrix

Forumthread: Worksheetfunction.Rank auf Matrix
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Worksheetfunction.Rank auf Matrix

27.11.2006 17:07:35

Matthias

Hallo,
ich habe ein Array mit Werten (matOut). Nun möchte ich daraus die Ränge mit der entsprechenden WF ermitteln. Diese Function erwartet aber kein Array sondern eine Range. Was kann ich machen um das Ergebnis zu ermitteln?
For m = 3 To UBound(matValue, 2)
matValue(l + 1, m) = .Rank(matOut(m - 3), matOut)
Next
Danke.
Matthias

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Worksheetfunction.Rank auf Matrix

27.11.2006 17:58:46

IngGi

AW: Worksheetfunction.Rank auf Matrix

27.11.2006 17:58:46

IngGi

Hallo Matthias,
schreib dir doch eine eigene Funktion zur Ermittlung des Ranges:

Sub test()
Dim arr(1 To 3) As Double
arr(1) = 5
arr(2) = 15
arr(3) = 10
Debug.Print Rang(arr(), 1)
End Sub
Private Function Rang(Vektor() As Double, Element As Long) As Long
Dim r As Long
Dim i As Long
r = 1
For i = 1 To UBound(Vektor)
If Vektor(i) > Vektor(Element) Then r = r + 1
Next i
Rang = r
End Function

Gruß Ingolf