+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Automatische Sortierung (/thread-21965.html)
Automatische Sortierung - andy01090 - 07.08.2021
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
RE: Automatische Sortierung - maninweb - 07.08.2021
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 SubIm Codemodul zu Tabelle1 das hier einfügen ...
Code:
Private Sub Worksheet_Activate()
Sortierung
End SubBeachte 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ß
RE: Automatische Sortierung - andy01090 - 07.08.2021
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.
RE: Automatische Sortierung - maninweb - 07.08.2021
Hallo,
ich habe Dir mal die Datei hochgeladen.
Tabelle Test.xlsm (Größe: 28,64 KB / Downloads: 6)
Gruß
RE: Automatische Sortierung - andy01090 - 08.08.2021
Danke!
RE: Automatische Sortierung - kadrleyn - 08.11.2021
Diese codes geben einen fehler in Excel 2010 aus.
RE: Automatische Sortierung - Calderon - 09.11.2021
Was soll uns das jetzt sagen? Dann musst du Office upgraden. Dann funktioniert es auch bei dir.
RE: Automatische Sortierung - Flotter Feger - 09.11.2021
Hallo,
das sagt uns ... die Augen auf machen und Brille aufsetzen !!!
Office 365:
.Sort.SortFields.Add2
Office 2010 - 2019:
.Sort.SortFields.Add