Einen schönen Samstag zusammen!
Habe ein mir unerklärliches Problem, was das Sortieren meiner Tabelle angeht.
Dieser Code führt nicht zum gewünschten Ergebnis:
If ComboBox1.Value = "" Then Exit Sub
Sheets(ComboBox1.Value).Select
u = ActiveSheet.UsedRange.Rows.Count
'Columns("C:C").Select 'das war meine Notlösung führt aber auch zu keinem Ergebnis
'Selection.NumberFormat = "0.00"
Range("A1:G" & u).Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Columns("C:C").Select
' Selection.NumberFormat = "@"
Wenn ich diesen Code automatisch laufen lasse, sortiert er als Text formatierte Zellen einzeln, das ist aber ein Problem. Wenn ich in der Tabelle selbst von Hand sortiere funktioniert es aber.
Die vorherige Formatierung als Zahl hindert Excel nicht daran dennoch alles für sich zu sortieren also Text und Zahl. xlsorttextasnumbers oder so ähnlich funktioniert aber auch nicht.
In c2 stehen die Werte die mal als Text und mal als Zahl formatiert sind. in b2 nur Text und in d2 nur Zahlen.
Ich hoffe ihr könnt helfen
MFG Dirk