Automatische Sortierung von mereren Kriterien
02.07.2004 12:45:17
mereren
wir haben eine Tippgemeinschaft und tippen die Bundeliga.
Wir sind 20 Tipper, und die Tabelle soll automatisch von der höchsten zur niedrigsten Punktzahl sortiert werden, was auch durch VBA klappt.
Ich habe die Exel Datei als Besispiel auf dem Server geladen.
https://www.herber.de/bbs/user/7995.xls
Der VBA-Code für die Sortierung der Punkte (Spalte H) und somit auch der damit verbundenen Zellen in den selben Zeilen ist:
Private Sub Worksheet_Activate()
Range("b5:h24").Select
Selection.Sort Key1:=Range("h5"), Order1:=xlDescending, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Jetzt möchte ich selber noch was einbauen: Wenn es zu Punktgleichstand kommt (wie in meinem Beispiel aufgeführt), dann soll danach nach "Spieltagsbester" sortiert werden (das wäre Spalte F). Das bekomme ich nicht in die Formel rein.
Also das wäre das 2. Kriterium und das soll nur passieren, falls die Punktzahl gleich ist.
Wenn "Spieltagsbester" auch noch gleich wäre, dann käme dann das Kriterium "Punkteschnitt" (Spalte G) dazu, das aber dann erst eingreifen soll, wenn ein Punktgleichstand und AUCH ein "Spieltagsbester"-Gleichstand zustande kommt.
Ich habe in meinem Beispiel die ersten Drei in der Tabelle mit C, B und A benannt. Sollte alles so funktionieren, wie ich es gern hätte, müsste die Tabelle so sortieren, dass die Reihenfolge A, B, C ist.
Könnt ihr mir weiterhelfen?