Automatische Sortierung

[maninweb]

Hallo,

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ß