Office: Datentabelle automatisch sortieren & Filter

Helfe beim Thema Datentabelle automatisch sortieren & Filter in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Ich habe eine Datentabelle mit Kunden und anderen Daten. Ich möchte dass, wenn ich auf das Blatt "Kunden" wechsle die Daten nach Name sortiert... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von maria85, 27. Juni 2012.

  1. maria85 Erfahrener User

    Datentabelle automatisch sortieren & Filter


    Hallo

    Ich habe eine Datentabelle mit Kunden und anderen Daten. Ich möchte dass, wenn ich auf das Blatt "Kunden" wechsle die Daten nach Name sortiert werden. Mit dem Makrorecorder erhalte ich folgenden Code:

    Code:
    Public Sub Kunden_Sortieren()
            
        ActiveWorkbook.Worksheets("Kunden").ListObjects("Kunden").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Kunden").ListObjects("Kunden").Sort.SortFields.Add _
            Key:=Range("Kunden[Name]"), SortOn:=xlSortOnValues, Order:=xlAscending, _
            DataOption:=xlSortNormal
        ActiveWorkbook.Worksheets("Kunden").ListObjects("Kunden").Sort.SortFields.Add _
            Key:=Range("Kunden[Strasse]"), SortOn:=xlSortOnValues, Order:=xlAscending _
            , DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Kunden").ListObjects("Kunden").Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
           
    End Sub
    Meiner Ansicht nach dauert die Sortierung sehr lange. Zuerst wird die gesamte Tabelle gewählt und danach sortiert. Gibt es eine Möglichkeit den Code so zu schreiben dass Excel die Tabelle "effizienter" sortiert?

    Meine zweite Frage betrifft den Filter: Wenn ich Excel schliesse und das Programm wieder öffne, sind alle Filter in der Tabelle nicht mehr da. Der Rekorder "spuckt" mir folgenden Code raus:

    Code:
        Range("Kunden[[#Headers],[Anrede]]").Select
        Selection.AutoFilter
    "Select" gefällt mir nicht. Wie würdet ihr das ändern?

    Vielen Dank für eure Hilfe. Ich bin euch für eure Hilfe immer sehr dankbar.

    Maria
     
    maria85, 27. Juni 2012
    #1
  2. fette Elfe Erfahrener User
    Hallo Maria,

    ich persönlich verwende die von Dir beschriebene Methode zum Sortieren von großen und umfangreichen Listen.
    Über die Geschwindigkeit konnte ich noch nie meckern.
    Ich kenne aber auch keine andere.
    Aber so ins blaue hinein kann man eh nichts sagen.

    Wie lang sind denn Deine Listen?
    Welche Excel-Version benutzt Du?
    Sortierst Du im gleichen Workbook in dem auch der Code steht?
    Hast Du gleichzeitig noch mehrere andere Excel-Anwendungen offen?
    Hast Du ansonsten Deinen Rechner stark ausgelastet?

    Hast Du während der Sortierung ein Bildschirmflimmern, oder hast Du die Bildschirmaktualisierung zeitweise ausgeschaltet? Wenn nicht könnte es ziemlich bremsen.
    Dies würde mit:
    Code:
    Application.ScreenUpdating = False
    gehen, und dann nicht vergessen sie mit:
    Code:
    Application.ScreenUpdating = True
    wieder anzuschalten.



    Zum Autofilter, probiers mal so, sollte ohne "Select" funktionieren:
    Code:
    Range("Kunden[[#Headers],[Anrede]]").AutoFilter

    Ich hoffe geholfen zu haben.
     
    fette Elfe, 27. Juni 2012
    #2
Thema:

Datentabelle automatisch sortieren & Filter

Die Seite wird geladen...
  1. Datentabelle automatisch sortieren & Filter - Similar Threads - Datentabelle automatisch sortieren

  2. Datentabelle unter Chart sortiert Daten falsch

    in Microsoft Excel Hilfe
    Datentabelle unter Chart sortiert Daten falsch: Hallo zusammen, ich wollte zu einem Chart noch die Datentabelle anzeigen lassen, ist ja jetzt mit dem Excel 2016 einfach. Bei genauem hinsehen habe ich festgestellt das die Datentabelle...
  3. Text in Datentabelle unter Diagram drehen

    in Microsoft Excel Hilfe
    Text in Datentabelle unter Diagram drehen: Hallo, ich habe ein Diagramm mit einem Datentabelle darunter. Leider kann ich den Text der Datentabelle nicht drehen. Eine Achsenbeschriftung lässt sich problemlos drehen, aber nicht bei einer...
  4. Ein- oder Ausblenden einer Diagrammlegende oder Datentabelle

    in Microsoft Excel Tutorials
    Ein- oder Ausblenden einer Diagrammlegende oder Datentabelle: Ein- oder Ausblenden einer Diagrammlegende oder Datentabelle Excel für Microsoft 365 Word für Microsoft 365 Outlook für Microsoft 365 PowerPoint für Microsoft 365...
  5. Berechnen von mehreren Ergebnissen mit einer Datentabelle

    in Microsoft Excel Tutorials
    Berechnen von mehreren Ergebnissen mit einer Datentabelle: Berechnen von mehreren Ergebnissen mit einer Datentabelle Excel für Microsoft 365 Excel für das Web Excel 2019 Excel 2016 Excel 2013 Excel 2010...
  6. Berechnen mehrerer Ergebnisse mithilfe einer Datentabelle in Excel für Mac

    in Microsoft Excel Tutorials
    Berechnen mehrerer Ergebnisse mithilfe einer Datentabelle in Excel für Mac: Berechnen mehrerer Ergebnisse mithilfe einer Datentabelle in Excel für Mac Excel für Microsoft 365 für Mac Excel 2019 für Mac Excel 2016 für Mac Excel für Mac 2011...
  7. Werte in einer Datentabelle ausblenden

    in Microsoft Excel Hilfe
    Werte in einer Datentabelle ausblenden: Hallo Gemeinde, ich habe folgende Frage: Ich habe ein Excel Diagramm in welchem ich auch eine Datentabelle anzeige. Ich möchte bestimmte Werte in der Datentabelle ausblenden, als Balken/Linien...
  8. Anzeigen oder Ausblenden einer Datentabelle in einem Diagramm

    in Microsoft Access Tutorials
    Anzeigen oder Ausblenden einer Datentabelle in einem Diagramm: Anzeigen oder Ausblenden einer Datentabelle in einem Diagramm Access für Microsoft 365 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden