Hallo Patrick,
ich kenne deine ExcelVersion nicht, aber irgendwo in in den Optionen gibt es das Register Autoausfüllen. Da stehen Listen wie Montag, Dienstag, Mittwoch usw. bzw. Januar, Februar, März usw. Dort kannst du eine neue Liste hinzufügen die da lautet i, d, w.
Wenn du dann das Menü Daten Sortieren öffnest, hast du dort einen Button Optionen wo du nach deiner Benutzerdefinierten Liste sortieren kannst.
Als Code könnte das Ganze z.B. so aussehen:
Application.AddCustomList ListArray:=Array("i", "d", "w")
Range("D15:D22").Select
Selection.Sort Key1:=Range("D15"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom
wichtig ist hier der Parameter OrderCustom. Die Nr. kann bei dir evtl. abweichen. Am besten du ersetzt die 6 durch Application.CustomListCount + 1 Dann bist du auf der sicheren Seite.
Gruß Mr. K.
|