VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Daniel	Datum: 04.04.2019 14:27:36	Views: 755	Rating:	Antwort:
Thema: Sortierungsmakro stürzt ab
Hallo Zusammen, ich habe folgendes Problem: Ich hab in meiner Tabelle in Spalte B Begriffe wie Auto, Rad, Tuer, und Auspuff in unterschiedlicher Reihenfolge stehen. Nun möchte ich, dass in Spalte B zunächst alle Zeilen mit Rad aufgelistet werden, dann die Zellen mit Auto, anschließend Tuer und Auspuff. Dafür habe ich folgenden Code geschrieben: Sub Sortierung() Dim lngCLC As Long Dim lngListExist As Long Dim lngOC As Long Dim vListArr As Variant vListArr = Array("Rad", "Auto", "Tuer", "Auspuff") lngListExist = Application.GetCustomListNum(vListArr) If lngListExist > 0 Then lngOC = lngListExist + 1 Else Application.AddCustomList listArray:=vListArr lngCLC = Application.CustomListCount lngOC = lngCLC + 1 End If Range("A:C").Sort Key1:=Range("B1"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=lngOC, _ MatchCase:=False, Orientation:=xlTopToBottom If lngListExist = 0 Then Application.DeleteCustomList ListNum:=lngCLC End Sub Sobald ich das Makro in meiner Excel-Tabelle speicher und ich die Excel-Datei öffnen möchte erhalte ich von Excel die Fehlermeldung, dass die Excel-Tabelle repariert werden musste aufgrund irgendeines Fehlers im Makro "Sortierung". Seht ihr auf den ersten Blick einen Fehler im Code? Die Sortierung läuft nämlich einwandfrei. Oder eine andere Möglichkeit wie ich die Sortierung hinbekommen könnte. Danke VG Daniel

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen