ich arbeite zu Zeit an einer Gesamtpunktetabelle für Turniere und habe folgendes Problem. Ich würde gerne die Gesamtpunkte der Spieler pro Monat automatisch in die Gesamtpunktetabelle übertragen lassen und den jeweiligen Spielern zuordnen.
(Die Gesamtpunktetabelle muss sich in einer eigenen Datei befinden, da ich diese somit einfacher online stellen kann.)
Gesamtpunktetabelle:
https://www.herber.de/bbs/user/124848.xlsx
Punktetabelle Oktober:
https://www.herber.de/bbs/user/124849.xlsx
Außerdem habe ich noch einen kleinen Fehler im Makro für die Sortierung der Punkte in der Gesamtpunktetabelle und bekomme das Problem einfach nicht gelöst, da ich noch ein Anfänger in Excel und VBA bin. In der letzten Zeile des Makros Sortierung wird mir im Debugger .Apply gelb markiert und die Sortierung funktioniert noch nicht.
Sub Sortierung()
' Sortierung Makro
' Sortiert die Gesamtpunktzahl und ordnet die Namen alphabetisch
' Tastenkombination: Strg+a
ActiveWindow.SmallScroll Down:=114
Range("B2:O500").Select
Range("O500").Activate
ActiveWorkbook.Worksheets("Gesamtpunktetabelle").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Gesamtpunktetabelle").Sort.SortFields.Add2 Key:=Range( _
"B2:O500"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Gesamtpunktetabelle").Sort.SortFields.Add2 Key:=Range( _
"B2:O500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Gesamtpunktetabelle").Sort
.SetRange Range("B2:O500")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Es würde mich sehr freuen, wenn mir jemand bei diesen 2 Problemen helfen könnte.
Gruß
Michael