Kann mir da jemand helfen?
Dim arrS, lngNr
arrS = Array("Zugang", "Zugang (Ersatzkarte)", "Zugang w/Namensänderung", _
"Zugang w/Änderung Geltungsbereich", _
"Abgang", "Abgang w/Verlust", "Abgang w/Namensänderung", _
"Abgang w/Änderung Geltungsbereich", _
"Fahrpreisänderung (w/Azubi-Konditionen)", _
"Karte vernichtet")
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
Für diesen Anwendunsgzweck reicht das auch, da das Array die 3. und letzte Sortierung steuert. In einem Anwendunsgfall möchte ich aber zuerst nach Zugang* und Abgang* sortieren - dabei soll es für die Sortierreihenfolge aber keine Rolle spielen, um welche Variante eines Zugangs oder Abgangs es sich jeweils handelt. Soweit ich weiss, kann ich in einem array aber keine Wildcards verwenden-