Sortieren mit Autofilter dauert mega lange

Hallo,
ich habe eine Tabelle in der drei Spalten sortiert werden sollen.
Es befinden sich ca 600 Zeilen in dem Tabellenblatt.
Allerdings dauert die Sortierung ca 30 sec.
Geht das auch schneller ?
Hier der Code

Private Sub Worksheet_Activate()
Dim wksEingabe As Worksheet
Set wksEingabe = ActiveWorkbook.Worksheets("Eingabe")
With wksEingabe
.Activate
'Prüfen, ob der Autofilter schon aktiv ist
If .AutoFilterMode = True Then
If .FilterMode = True Then
'                .ShowAllData
End If
Else
.Range("A2:AD2").Select
Selection.AutoFilter
End If
End With
With wksEingabe.AutoFilter.Sort
.SortFields.Clear
.SortFields.Add Key:=wksEingabe.Range("A2"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
With wksEingabe.AutoFilter.Sort
.SortFields.Clear
.SortFields.Add Key:=wksEingabe.Range("D2"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
With wksEingabe.AutoFilter.Sort
.SortFields.Clear
.SortFields.Add Key:=wksEingabe.Range("B2"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
600 Zeilen ist fürs sortieren eigentlich nicht viel, das sollte schneller gehen.
Wahrscheinlich hast du komplexe Formeln, welche sich auf diese Zellen beziehen oder Eventmakros, welche dursch das umsortieren ausgelöst werden.
Automatsische Neuberechnung und Aufruf der Eventmakros kannst du unterbinden, wenn du am Anfang folgendes Ausführst:

Application.EnableEvents = False
Application.Calculation = xlCalculationManual

bei Makroende schaltet man sie wieder ein mit:

Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

solltest du das Einschalten vergessen oder das Makro mit einem Fehler abbrechen, so musst du bedenken dass dann bei Makroende die zuletzt gemachte Einstellung erhalten bleibt.
In diesem Fall kannst du die automatsiche Neuberechnung über den Menüpunkt bei FORMELN - BERECHNUNGSOPTIONEN wieder aktivieren, um die Events einzuschalten musst du den Befehl im Direktfenster eintippen.
Gruß Daniel

With AcitveSheet '---hier das zu sortierende Sheet einsetzen On Error Resume Next .ShowAllData '--- Wenn Autofilter alles einblenden On Error Goto 0 .Usedrange.sort Key1:=.Cells(1, 2), order1:=xlascending, Header:=xlyes End With

Beliebteste Forumthreads (12 Monate)

Sortieren mit Autofilter dauert mega lange

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread