Liste Sortieren
16.06.2021 12:56:00
PhilipMcn
leider konnte man mir bisher bei meinem eigentlichen Problem nicht helfen, darum einmal eine einfache Frage:
Ich würde gerne eine Liste automatisch nach einer bestimmten Reihenfolge sortieren mittels folgendem Makro:
Sub Sortieren()
Application.AddCustomList listarray:=Array("A", "B", "C")
With Tabelle1
.Range("A:A").Sort key1:=.Range("A1"), _
order1:=xlAscending, _
Header:=xlNo, _
ordercustom:=Application.CustomListCount + 1
End With
Application.DeleteCustomList Application.CustomListCount
End Sub