Sortierfunktion führt zu Excel Crash
08.10.2020 17:36:06
Paul
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