Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Sortierfunktion führt zu Excel Crash

nach unten

Betrifft: Sortierfunktion führt zu Excel Crash von: Paul
Geschrieben am: 08.10.2020 17:36:06

Hi miteinander! Mein Erster Post hier.
Möchte für meine Excel-Datei eine Sortierfunktion implementieren die soweit korrekt funktioniert.
Mein Problem jedoch ist das dieser Code jedesmal nach Ausführung (erst wenn versucht wird das Dokument zu speichern) mein Excel sich aufhängt.

Eine Idee weshalb? Ich vermute irgendwo wird nicht sauber abgeschlossen.

LG Paul

Hier mein Code:

Private Sub Stat_Sort_Click()
   Dim arrS, lngNr
   arrS = Array("Noch nicht versandt", "Warten auf erstes Feedback", "Erstes Feedback in  _
Bearbeitung", "Versandbereit für 2tes Feedback", "Warten auf zweites Feedback", "Zweites Feedback in Bearbeitung", "Versandbereit für 3tes Feedback", "Warten auf drittes Feedback", "Drittes Feedback in Bearbeitung", "Versandbereit für 4tes Feedback", "Abgenommen")

   Application.AddCustomList ListArray:=arrS
   lngNr = Application.GetCustomListNum(arrS)
   Range("A10:Z150").Sort Key1:=Range("V10"), Order1:=xlAscending, _
      Header:=xlNo, OrderCustom:=lngNr + 1, MatchCase:=False, _
      Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
   Application.DeleteCustomList lngNr

End Sub

nach oben  nach unten

Betrifft: CustomList
von: lupo1
Geschrieben am: 08.10.2020 17:47:17

habe ich noch nie verwendet. Vielleicht solltest Du einmal vor dem DeleteCustomList speichern.

Stürzt es nach dem Speichern ab, wird es evtl. daran liegen, und Du kommentierst es erst mal aus.