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 |