|
Hallo zusammen,
habe ein kleines Problem, welches für euch wahrscheinlich keins ist :)
Ich habe einen Tabelle
R S T U V W X Y
|
Tabelle |
|
Nickname |
|
Spiele |
Punkte |
Tore |
Gegentore |
Tordifferenz |
Platz |
|
Platzhalter2 |
|
1 |
3 |
3 |
0 |
3 |
1. |
|
The Great White |
|
1 |
3 |
2 |
0 |
2 |
2. |
|
The Angry Fox |
|
1 |
3 |
1 |
0 |
1 |
3. |
|
The Topper |
|
0 |
0 |
0 |
0 |
0 |
4. |
|
The Sewing Maschine |
|
0 |
0 |
0 |
0 |
0 |
5. |
|
The Shooter |
|
1 |
0 |
0 |
1 |
-1 |
6. |
|
Platzhalter1 |
|
1 |
0 |
0 |
2 |
-2 |
7. |
|
The Triple Hunter |
|
1 |
0 |
0 |
3 |
-3 |
8. |
Dies ist mein Code:
Private Sub Tabelle_sortieren()
ActiveSheet.Unprotect
'Bereich, auf den sich die Sortierung auswirken soll
Range("R4:X11").Select
'Sortierkriterien
Selection.Sort Key1:=Range("U4"), Order1:=xlDescending, _
Key2:=Range("X4"), Order2:=xlDescending, _
Key3:=Range("V4"), Order3:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
ActiveSheet.Protect
End Sub
Jetzt die Frage, wie bekomme ich es hin, dass die ohne Spiele immer unten stehen und zwar sobald bei den anderen 2 Spiele stehen?
Vielen Dank im Voraus für die Hilfe
LG Stephan
|