ich würde gerne eine Tabelle automatisch sortieren lassen.
https://www.herber.de/bbs/user/64050.xls
Es soll nach gesamt sortiert werden. Turnierquote soll nicht mit sortiert werden.
Mit freundlchem Gruß
Sankt
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Set bereich = Range("A3:M32") 'Bereich, den du sortieren willst
bereich.Sort Key1:=Range("J3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal 'sortiert nach Spalte J, beginnend bei Zeile3, _
aufsteigend sortiernd
Application.ScreenUpdating = True
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen