Sortieren mit array crasht Excel

Ich suche schon seit geraumer Zeit nach der Ursache, weshalb es beim Abspeichern einer Excel-Datei immer wieder zu "Excel funktioniert nicht mehr" kommt. Das Problem tritt kurioserweise nur auf, wenn ich die Datei als xlsm oder xlsb abspeichere. Bei Speicherung im xls-Format kommen zwar Kompatibilitätswarnungen, aber im Kompatibilitätsmodus läuft die Datei dann problemlos unter Excel 2010.
Nachdem ich das nun genauer untersucht habe und durch zahlreiche Tests eingegrenzt habe, kommt heraus, dass die Anwendung dieses Makros kurz vor dem Abspeichern den Crash auslöst. Das Makro selbst läuft fehlerfrei durch und funktioniert auch wie erwartet:


Public Sub Gesamtbestand_sortieren()
Dim arrS, lngNr
arrS = Array("Zugang", "Zugang (Ersatzkarte)", "Zugang w/Namensänderung", "Zugang w/Ä _
nderung Geltungsbereich", "Pausierung Ende", _
"Abgang", "Abgang w/Verlust", "Abgang w/Namensänderung", "Abgang w/Änderung  _
Geltungsbereich", "Fahrpreisänderung (w/Azubi-Konditionen)", "Karte vernichtet", "Pausierung  _
Beginn")
Application.AddCustomList ListArray:=arrS
lngNr = Application.GetCustomListNum(arrS)
Range("Gesamt3").Sort Key1:=Range("E7"), Order1:=xlAscending, Key2:=Range("C7") _
, Order2:=xlAscending, Key3:=Range("J7"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=lngNr + 1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Application.DeleteCustomList ListNum:=lngNr
End Sub

Fehlt da noch irgendwas, um Speicher freizugeben o.ä.?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Gesamtbestand_sortieren() Dim arrS, lngNr Dim StatusCalc As Long 'Makroberemsen lösen With Application StatusCalc = .Calculation .Calculation = xlCalculationAutomatic .ScreenUpdating = False .EnableEvents = False End With arrS = Array("Zugang", "Zugang (Ersatzkarte)", "Zugang w/Namensänderung", _ "Zugang w/Änderung Geltungsbereich", "Pausierung Ende", "Abgang", _ "Abgang w/Verlust", "Abgang w/Namensänderung", "Abgang w/Änderung Geltungsbereich", _ "Fahrpreisänderung (w/Azubi-Konditionen)", "Karte vernichtet", "Pausierung Beginn") Application.AddCustomList ListArray:=arrS lngNr = Application.GetCustomListNum(arrS) Range("Gesamt3").Sort Key1:=Range("E7"), Order1:=xlAscending, Key2:=Range("C7") _ , Order2:=xlAscending, Key3:=Range("J7"), Order3:=xlAscending, _ Header:=xlGuess, OrderCustom:=lngNr + 1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortNormal Application.DeleteCustomList ListNum:=lngNr 'Makroberemsen zurücksetzen With Application .ScreenUpdating = True .EnableEvents = True .Calculation = StatusCalc .Calculate End With MsgBox "Sortieren fertig", vbInformation + vbOKOnly, "Test Makro: Gesamtbestand_sortieren" End Sub

Public Sub Gesamtbestand_sortieren() Dim arrS, lngNr Dim StatusCalc As Long 'Makroberemsen lösen With Application StatusCalc = .Calculation 'Berechnungsmodus merken .Calculation = xlCalculationManual 'Berechnung auf manuell setzen .ScreenUpdating = False .EnableEvents = False End With arrS = Array("Zugang", "Zugang (Ersatzkarte)", "Zugang w/Namensänderung", _ "Zugang w/Änderung Geltungsbereich", "Pausierung Ende", "Abgang", _ "Abgang w/Verlust", "Abgang w/Namensänderung", "Abgang w/Änderung Geltungsbereich", _ "Fahrpreisänderung (w/Azubi-Konditionen)", "Karte vernichtet", "Pausierung Beginn") Application.AddCustomList ListArray:=arrS lngNr = Application.GetCustomListNum(arrS) Range("Gesamt3").Sort Key1:=Range("E7"), Order1:=xlAscending, Key2:=Range("C7") _ , Order2:=xlAscending, Key3:=Range("J7"), Order3:=xlAscending, _ Header:=xlGuess, OrderCustom:=lngNr + 1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortNormal Application.DeleteCustomList ListNum:=lngNr 'Makroberemsen zurücksetzen With Application .ScreenUpdating = True .EnableEvents = True .Calculation = StatusCalc .Calculate End With MsgBox "Sortieren fertig", vbInformation + vbOKOnly, "Test Makro: Gesamtbestand_sortieren" End Sub

Hallo Franz,
vielen Dank für den Code. Leider crasht es auch damit. Das Sortieren wird zunächst fehlerfrei durchgeführt. Selbst wenn ich danach mehrere Minuten warte, kommt beim anschließenden Speichern sofort "Excel funktioniert nicht mehr".
In dem sortierten Tabellenblatt (der Range "Gesamt3") gibt es keinerlei Formeln. Allerdings gibt es in einem anderen Tabellenblatt mehr als 1000 Zeilen, die eine SVERWEIS-Formel haben, die auf einen Teilbereich der Range Bezug nehmen. Und es gibt ein weiteres Tabellenblatt, das etliche DBVERWEIS-Formeln enthält, die sich auf den sortierten Range beziehen. Aber das sollte zum Zeitpunkt des Speicherns eigentlich längst alles aktualisiert sein.
Sicherheitshalber habe ich mal getestet, die beiden Blätter zu löschen. Aber auch dann crasht es noch.
Und auch wenn ich in den Excel-Optionen die Arbeitsmappenberechnung von automatisch auf manuell stelle, ändert sich nichts.
Zu der Frage von Yal ("Gibt es Ereignisprocedure, die mit der Sortierung verknüpft sind?"):
Es gibt in dem Tabellenblatt, auf das sich die Range "Gesamt3" bezieht, das Worksheet_Change - Makro, aber selbst wenn ich das rausnehme, crasht es.
Es gibt auch kein Workbook. BeforeSave-Ereignis.
Ich habe noch etwas weiter geforscht, und bislang crasht es nicht mehr, wenn ich vor dem Löschen der Liste die Sortierfelder zurücksetze:
ActiveSheet.Sort.SortFields.Clear
Application.DeleteCustomList ListNum:=lngNr
Ich beobachte das nochmal, ehe ich den Thread auf gelöst setze.

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread