AW: VBA sortieren mit Left(... verbinden
30.03.2020 14:01:36
Martin
Ich verwend eim Moment folgenden VBA-Code
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-