07.08.2021, 09:17
Hallo,
könntest folgendes machen. In Modul 1 den Code zu Sortieren durch nachfolgendes ersetzen ...
Im Codemodul zu Tabelle1 das hier einfügen ...
Beachte dann bitte, dass Du gegebenenfalls im Code Tabelle (Blattname), Tabelle1 (Deine intelligente Tabelle,
Bezeichnung zu finden im Reiter Tabellenentwurf) und den Spaltennamen Punkte inkl.Finale anpassen musst.
Gruß
könntest folgendes machen. In Modul 1 den Code zu Sortieren durch nachfolgendes ersetzen ...
Code:
Sub Sortierung()
With ThisWorkbook.Worksheets("Tabelle").ListObjects("Tabelle1")
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=Range("Tabelle1[[#All],[Punkte inkl.Finale]]"), _
SortOn:=xlSortOnValues, Order:=xlDescending
.Sort.Apply
End With
End Sub
Im Codemodul zu Tabelle1 das hier einfügen ...
Code:
Private Sub Worksheet_Activate()
Sortierung
End Sub
Beachte dann bitte, dass Du gegebenenfalls im Code Tabelle (Blattname), Tabelle1 (Deine intelligente Tabelle,
Bezeichnung zu finden im Reiter Tabellenentwurf) und den Spaltennamen Punkte inkl.Finale anpassen musst.
Gruß
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) :: 01/2011 - 06/2019 :: 04/2020 - 06/2022
https://de.excel-translator.de/translator :: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner (neu)
https://de.excel-translator.de/translator :: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner (neu)