hier etwas worüber einige sicherlich schmunzeln müssen. Bin jedoch Laie und bitte deswegen um Verzeihung.
Habe ein Tabellenblatt mit mehreren Highscorelisten.
Überschrift ist das gespielte Gerät. Die Listen beinhalten Name und die dazugehörige Score. Wenn es sich nur um eine Liste auf dem Tabellenblatt hadeln würde, würde ich folgende Formel einsetzen
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("b3:c14")
For Each RaZelle In Range(Target.Address)
If Not Intersect(Target, RaBereich) Is Nothing Then ' Zelle ist im Bereich
Range("B3:c14").Sort Key1:=Range("c3"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Exit For
End If
Next RaZelle
Set RaBereich = Nothing
End Sub
Da nun aber mehrere diese Listen existieren müssen alle Sortiert werden.
Das bereitet mir Probleme
Als Beispiel hier
Tom 500
Lars 400
Stefan 200
Klaus 100
Diese ist also schon Sortiert
Davon gibt es 10 Stück auf dem Tabellenblatt
Danke für die Hilfe