Ich besitze eine Spielauswertungs-Datei, die folgendermassen aufgebaut ist:
Spalte A
Hier steht der Platz (z.B. 1., 2. usw.)
Spalte B
hier steht die erreichte Punktzahl
Spalte C
der Name des Spielers
Spalte D
und hier der Punkteabstand zum 1. Platz (z.B. -4)
Mit dem unteren Makro wird jetzt die tabelle nach dem Platz bzw. Rang sortiert. Das klappt auch alles wunderbar. Nur innerhalb eines Ranges möchte ich es noch nach den Namen sortiert haben.
Bei mir steht z.B.
6. Platz 15 Punkte Müller, Franz
6. Platz 15 Punkte Dietl, Hubert
In der Reihenfolge sollte aber erst der Dietl, dann der Müller kommen.
Wie muss ich das untere Makro abändern, um das hinzubekommen.
Die richtige Zuordnung zu Rang und Punkte sollte natürlich erhalten bleiben.
Tobias
Sub Sortierung()
Range("A8:A107").Select
Selection.Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B8:C107").Select
Selection.Sort Key1:=Range("B8"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("F8").Select
Columns("C:C").ColumnWidth = 23#
End Sub