Office: Position eines Wertes innerhalb eines Arrays

Hallo zusammen,

wie kann ich folgendes machen:

Finde den größten Wert innerhalb des Arrays und gib die Position an
Finde den zweitgrößten Wert innerhalb des Arrays und gib die Position an
Finde den drittgrößten Wert innerhalb des Arrays und gib die Position an
.
.
.

Hat da einer ne Idee?

Danke und viele Grüße
Till *Smilie

:)

 

Hallo Till,

per Formel so:

	A	B
1	5	1
2	2	3
3	4	5
4	1	2
5	3	4

B1 : {=VERGLEICH(1;--(KGRÖSSTE($A:$A;ZEILE(A1))=$A:$A);0)}
B2 : {=VERGLEICH(1;--(KGRÖSSTE($A:$A;ZEILE(A2))=$A:$A);0)}
B3 : {=VERGLEICH(1;--(KGRÖSSTE($A:$A;ZEILE(A3))=$A:$A);0)}
B4 : {=VERGLEICH(1;--(KGRÖSSTE($A:$A;ZEILE(A4))=$A:$A);0)}
B5 : {=VERGLEICH(1;--(KGRÖSSTE($A:$A;ZEILE(A5))=$A:$A);0)}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Gruß Ingolf

 

Hi IngGi,

ich benötige das aber in VBA. Wenn ich mir ein Array mit Werten Anlege.

Kannst Du mir da auch helfen?

Till *Smilie

 

Hallo Till,

folgendes als schnellerstellte Spieldaten per VBA (geht unter Garantie noch viel eleganter !):

Private Sub test()

deinarray = Array(1, 10, 8, 2, 5)

maxpos = 0
maxwert = deinarray(0)
minwert = deinarray(0)
For x = 0 To UBound(deinarray)
If deinarray(x) >= maxwert Then
maxwert = deinarray(x)
maxpos = x
End If
If deinarray(x) = minwert) And (deinarray(x) >= nmaxwert)) Then
nmaxwert = deinarray(x)
nmaxpos = x
End If
Next x
MsgBox "Wert " & nmaxwert & " mit Rang " & (i + 1) & " wurde an Position " & (nmaxpos + 1) & " des Arrays gefunden !"
maxwert = nmaxwert
Next i

End Sub


Probleme sind sicher noch mehrere gleiche Werte....


Berti

 

Hallo Till,

dein Originalarray musst du wie im nachfolgenden Code kopieren und dann mit der Kopie arbeiten, da nach jedem Durchlauf der äußeren Schleife der jeweils größte Wert im Array mit einem Leerstring überschrieben wird. Das Array wird also verändert. Das Array (die Kopie) muss als Variant deklariert sein.
Code:

 

Hi,

wenn das Array nicht so groß ist kannst du ja auch die Formel vom Till nehmen und in einer Spalte fest vordefinieren.
In einer anderen Spalte die zu überprüfenden Werte per VBA einfügen
--> und dann sollte das ohne viel Vergleichsquellcode funktionieren

MfG Steve

 

Supi, danke!

Das hilft mir auf jeden Fall schon mal weiter :-)