Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheetfunction.Rank auf Matrix

Worksheetfunction.Rank auf Matrix
27.11.2006 16: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
Anzeige
AW: Worksheetfunction.Rank auf Matrix
27.11.2006 16: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige