Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Automatische Sortierung
#1
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


Angehängte Dateien
.xlsm   Tabelle Test.xlsm (Größe: 24,58 KB / Downloads: 7)
Zitieren
#2
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ß
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)
Zitieren
#3
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.
Zitieren
#4
Hallo,

ich habe Dir mal die Datei hochgeladen.


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

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)
Zitieren
#5
Danke!
Zitieren
#6
Diese codes geben einen fehler in Excel 2010 aus.
Zitieren
#7
Was soll uns das jetzt sagen? Dann musst du Office upgraden. Dann funktioniert es auch bei dir.
Calderon
Zitieren
#8
Hallo,

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

Office 365:
.Sort.SortFields.Add2

Office 2010 - 2019:
.Sort.SortFields.Add
_________
VG Sabina
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions