ich habe auf mehreren Tabellenblätter eine Gliederung mit:
1.1
1.3.3
1.6.1.2
1.10.1
leider sortiert er aber:
1.1
1.10.1
1.3.3
1.6.1.2
Hatte schon mal was gelesen, dass eine Hilfsspalte reicht, in der man einfach einen Buchstaben hinzufügt und diese dann sortiert, aber leider funktioniert das bei mir nicht.
Sub sor(ws As Worksheet)
Dim rng As Range
For Each rng In ws.Range(ws.Cells(1, 1), ws.Cells(Rows.Count, 1).End(xlUp))
rng.Cells(, 3) = "f" & rng.Cells(, 1)
rng.Cells(, 3).Font.ColorIndex = 1
Columns("A:C").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Next rng
End Sub
Danke für Hilfe/Vorschläge/Code!
Gruß Alex