Hallo
Ich habe einen Spielplan für ein Turnier erstellt mit Tabelle sortiert nach Punkten, Tordifferenz, +Tore und -Tore. Jetzt möchte ich bei Punktgleichheit die Direktbegegnung werten. Bis jetzt verwende ich:
Sub main()
Dim iLastRow As Integer
Dim iLastCol As Integer
iLastCol = ActiveCell.Column
iLastRow = ActiveCell.Row
ActiveWorkbook.Worksheets("HelpTabellen").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("HelpTabellen").Sort.SortFields.Add Key:=Range( _
"Q3:Q8"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("HelpTabellen").Sort.SortFields.Add Key:=Range( _
"P3:P8"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("HelpTabellen").Sort.SortFields.Add Key:=Range( _
"N3:N8"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("HelpTabellen").Sort.SortFields.Add Key:=Range( _
"O3:O8"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("HelpTabellen").Sort
.SetRange Range("M2:Q8")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
|