Rangliste sortieren
01.12.2019 10:09:16
Udo
Ich habe dieses Thema schon mal gehabt, aber leider nicht zur richtigen Lösung gekommen.
Ich versuche mich evtl. besser auszudrücken.
Ich habe mit in Excel eine eigene Ligaverwaltung gebastelt.(Darts)
nun zu meinem Problem
In dieser Liga können sich Mannschaften mit mindestens 6 und max. 8 Spieler anmelden.
Meine Rangliste ist so konzipiert das jede Mannschaft 8 Spieler anmeldet.
Jetzt ist es so wenn sich ein paar Mannschaften nur mit zb. 6 Spieler anmelden.
Sind natürlich in meiner Rangliste leere Zeilen.(also kein Name).
Mit dem Makro was ich hier reinkopiert habe sortiere ich die Liste, das funktioniert einwandfrei.
Nur muss ich am anfang der Saison mein Makro immer händisch korrigieren, das es eben weiss, wieviele Spieler sortiert gehören.
Meine Frage ist es möglich das das Makro alles sortiert und die leeren Zeilen ganz unten sind das wäre perfekt.
Danke für eure Hilfe
Sub Sortieretabelleeinzelneu()
' Sortieretabelleeinzelneu Makro
Range("A4:I54").Select
ActiveWorkbook.Worksheets("Tabelle Einzel").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle Einzel").Sort.SortFields.Add Key:=Range( _
"A5:A54"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Tabelle Einzel").Sort.SortFields.Add Key:=Range( _
"E5:E54"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Tabelle Einzel").Sort.SortFields.Add Key:=Range( _
"B5:B54"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle Einzel").Sort
.SetRange Range("A4:I54")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub