Automatische Sortierung

[andy01090]

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

[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ß

[andy01090]

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.

[maninweb]

Hallo,

ich habe Dir mal die Datei hochgeladen.


  Tabelle Test.xlsm (Größe: 28,64 KB / Downloads: 6)

Gruß

[andy01090]

Danke!

[kadrleyn]

Diese codes geben einen fehler in Excel 2010 aus.

[Calderon]

Was soll uns das jetzt sagen? Dann musst du Office upgraden. Dann funktioniert es auch bei dir.

[Flotter Feger]

Hallo,

das sagt uns ... die Augen auf machen und Brille aufsetzen !!!

Office 365:
.Sort.SortFields.Add2

Office 2010 - 2019:
.Sort.SortFields.Add