Hallo Andreas,
hast du dir die "falschen" Daten mal genauer angesehen?
Du kannst ja auch mal die Sortierung mit
[code]DataOption:= xlSortTextAsNumbers[/code]
testen, dann wird eine Zahl, die im Textformat vorliegt, wie eine Zahl sortiert:
.[code]Range("A2:J" & Cells(Rows.Count, 1).End(xlUp).Row).Sort _
Key1:=Range("B:B"), Order1:=xlAscending, DataOption:= xlSortTextAsNumbers,_
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom[/code]
Gruß
M.O.