Hallo,
ich bringe die automatische Sortierung nach Änderung nicht hin. Vielleicht kann mir hier jemand helfen.
Die Spalte J ist relevant für die Sortierung
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ß
Danke, komme damit leider nicht klar. Ich habe das jetzt über Kgrößte gebastelt aber auch hier noch ein Problem. Mache hierfür einen neuen Beitrag auf.
Diese codes geben einen fehler in Excel 2010 aus.
Was soll uns das jetzt sagen? Dann musst du Office upgraden. Dann funktioniert es auch bei dir.
Hallo,
das sagt uns ... die Augen auf machen und Brille aufsetzen !!!
Office 365:
.Sort.SortFields.Add2
Office 2010 - 2019:
.Sort.SortFields.Add