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.ä.?