Hallo Gemeinde,
ich kämpfe nach langer Zeit mal wieder und bitte sehr um Hilfe: Excel 365,
Meine Datentabelle umfasst ca 12000 Datensätze (es geht um Ahnenforschung), diese sind in Spalte A ab A20 nummeriert( DS von 1 bis ca 12000 diese können noch mehr werden in dieser Reihe), nun habe ich DS mit Nummern ab 14900 hinzugefügt welche ich optional mit der Sortierung vor die Nummern 1-13999 bringen möchte. Die Nummerierung ist durchaus lückenhaft.
Nach Möglichkeit möchte ich keine weitere Hilfsspalte einfügen.

Die gewünschte Sortier-Reihenfolge soll werden:
größer 14900 (oder 14900 bis 20000) dann
1 bis 13999 dann
alle anderen Inhalte die evtl. vorhanden sind

Die Zellen sind im Standartformat

Bei Sortierungen mit anderen Kriterien und anderen Spalten funktioniert mein Makro.
Was übersehe ich ? Kann mir bitte jemand helfen?

Mein Makro -Ausschnitt sieht so aus:

If LastRow > 1 Then 'sortieren nach Spalte A=DatensatzNr
With ws.Sort
.SortFields.Clear
.SortFields.Add2 Key:=ws.Range("A20 :A" & LastRow), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="14901-20000,1-14900,*", DataOption:=xlSortNormal
.SetRange ws.Range(OL & ":" & UR) 'Bereich von Obenlinks bis Untenrechts = ges Listen Bereich der sortiert werden soll
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Schon mal herzlichen Dank im Voraus,
frosi0