Hallo,
ich habe ein kleines Problem. Ich habe eine Excel-Datei, in der auf einem Tabellenblatt eine Rangliste berechnet werden soll und zwar in folgender Reihenfolge: Punkte +, Punkte -, Sätze + und Sätze -. Hier habe ich unten angegebenes Makro.
Z.B.:
Platz // Punkte +/- // Sätze +/-
1 // 33:27 // 130:10
2 // 24:36 // 111:29
3 // 24:36 // 109:31
Die Punkte + und - funktionieren ganz gut, aber das mit den Sätzen haut hinten und vorne nicht hin. Da würde jetzt z.B. statt der o.g. 2. Platz auf Platz 3 oder so stehen, auf jeden Fall werden die Sätze nicht sortiert.
Könnte mir hier vielleicht jemand helfen? Wäre wirklich super!
Vielen Dank schon mal,
Gruß
Andrea
Und hier noch mein Makro:
Sub Gesamt()
Calculate
Range("b23:o34").Select
Selection.Sort Key1:=Range("d24"), Order1:=xlDescending, Key2:= _
Range("e24"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
tab_format
Calculate
End Sub
Sub Heim()
Calculate
Range("b23:o34").Select
Selection.Sort Key1:=Range("h24"), Order1:=xlDescending, Key2:= _
Range("i24"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
tab_format
Calculate
End Sub
Sub Auswaerts()
Calculate
Range("b23:o34").Select
Selection.Sort Key1:=Range("l24"), Order1:=xlDescending, Key2:= _
Range("m24"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
tab_format
Calculate
End Sub
Sub tab_format()
Range("a24:o25").Select
Selection.Interior.ColorIndex = x1None
Range("a26:o26").Select
Selection.Interior.ColorIndex = x1None
Range("a27:o34").Select
Selection.Interior.ColorIndex = xlNone
Range("A35").Select
End Sub