Office: Benutzerdefiniertes Sortieren

Guten Tag, Gemeinde!

Ich habe folgendes Problem: ich muss eine Tabelle nach einer Spalte A sortieren lassen, deren Sortierkriterien nicht alphanumerisch geordnet sind. M.a.W., die Reihenfolge ist C, P, L, W, Lo.

Bisher habe ich folgendes probiert:
- Eine Hilfsspalte, in der die Werte in 1-5 umgewandelt werden und daraufhin die Tabelle nach der Hilfsspalte sortiert wird. Geht nicht, weil bei Hinzufügen einer Zeile in dieser Zeile die Funktion nicht drin ist. (Man könnte natürlich eine existierende Zeile kopieren, aber die Tabelle ist für Manager, es muss also idiotensicher sein!)
- Über Extras - Optionen - Autoausfüllen habe ich eine benutzerdefinierte Liste erstellt und diese dann bei Datei - sortieren - Optionen ausgewählt. Das ganze habe ich als Makro aufgezeichnet und hinter einen Button gelegt, so dass der Benutzer nur noch auf den Button klicken muss.

So weit so gut. Das Problem ist aber: da diese Liste benutzerdefinert ist, funktioniert das ganze nicht, wenn ich die Datei an einen anderen Benutzer versende, weil er ja nicht die Liste auf seinem Rechner hat.

Meine Idee ist jetzt, die Sortierreihenfolge in dem (recht einfachen) Makro einzubauen. Ich habe leider nur keine Ahnung, wie das geht.

Kann mir jemand helfen? Anbei das Makro.

Vielen Dank vorab!

Nobbe


Makro:
Sub Liste_sortieren()
Range("A5:N2300").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom
Range("B2").Select
End Sub

:)

 

Hallo Hans Bärbel

,

hast Du schon mal die Suche des Forum benutzt, mir ist in Erinnnerung das jinx dafür schon mla ein Code gescgrieben hat.

 

Ja klar, hatte aber leider nichts gefunden. Erst als ich jetzt nach Jinx gesucht habe...

Gruss Nobbe

 

Hallo Hans Bärbel

,

ich vermute mal wir sprechen vom gleichen Beitrag. Ich habe erstmal auch gesucht.

http://www.ms-office-forum.net/forum...ght=Sortierung

Für die Suche nach Vornamen benutze ich ein Internationales Vornamen Buch

 

Genau, der war´s.

Gruss Der Nobbe