Rangliste bei Notengleichheit
26.02.2004 15:33:41
Markus
Hallo,
bin schon seit geraumer Zeit dabei irgendwie eine Rangliste zu erzeugen aber schaff es einfach nicht wie ich es gerne hätte, vielleicht weis jemand Rat.
Ich Versuchs mal mit nem Beispiel zu erklären:
Spalte A Spalte B Spalte C
1 Müller 2,16
2 Meier 2,18
3 Schneider 3,00
4 Huber 3,00
5 Otto 4,10
Bei vorliegender Sortierung belegen Notengleiche Personen in diesem Fall Platz 3 und 4 ich möchte es aber so machen das bei Notengleichheit in diesem Fall Schneider und Huber beide Platz 3 belegen und es dann bei Otto mit Platz 5 weitergeht. Es müßte also eine Funktion geben die die Noten abgleicht und die Platzziffer entsprechend vergibt. Bei kleinen Listen ist das leicht mit der "Hand" zu lösen bei Größeren würde es mit unwahrscheinlich Zeit sparen.
Hoffe ich hab das "Problem" ausreichend beschrieben?
Liebe Grüsse, Markus
und hab auch folgende Lösungsansätze bekommen!!
Hallo Markus,
versuche mal: in Zelle d1 schreibe 1
in zelle d2 =WENN(B1=B2;D1;D1+1)und kopiere Zelle d2 nach unten
Holger
Erstens Flüchtigkeitsfehler. Die Formel sollte
=WENN(C1=C2;D1;D1+1)
sein. Aber dann kommt 1,2,3,3,4 raus.
Normalerweise schreibt man 1,2,3,3,5 oder 1,2,3,leer,5. Oder?
Wie wäre es mit
in Zelle d1 schreibe 1
in zelle d2 =WENN(C1=C2;"";ZEILE())
Grad der letzte "klappt" nur eben nicht, wenn ich die Liste in zB. Zelle A6 beginnen möchte. Denn dann beginnt meine Liste nicht mit 1 sondern mit 7 usw.
Willi hat mir auch eine Hilfe mit einem Makro geschrieben nur damit kenn ich mich leider ganz und gar nicht aus.....
Sub Makro3()
ActiveWorkbook.Names.Add Name:="rangfolge", RefersToR1C1:=
_ "=Tabelle1!R1C3:R28C3"
Range("A1").Select
ActiveCell.FormulaR1C1 = "=RANK(RC[2],rangfolge,1)"
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A32"), Type:=xlFillDefault
End Sub
würde "vielleicht" funktionieren aber hab eben keine Ahnung im Umgang mit Makros!!