Office: 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

 

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.