Der nachfolgende Code funktioniert soweit.
Sub Sortieren()
Dim rSort As Range
With ActiveWorkbook.Worksheets("Aufstellung")
Set rSort = .Range(.Cells(13, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(, 1000))
With .Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A13"), _
SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
.SetRange rSort
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
Das Problem ist aber dass ich Datensätze sortiere die z.b so aufgebaut sind
O1.ZU.1.19
O1.ZU.1.20
O1.ZU.1.21
wenn ich nun einen Datensatz dazufüge der so ausschaut
O1.ZU.1.2
wird die Sortierreihenfolge so ermittelt
O1.ZU.1.19
O1.ZU.1.2
O1.ZU.1.20
O1.ZU.1.21
Ich möchte aber dass diese so ermittelt wird.
O1.ZU.1.2
O1.ZU.1.19
O1.ZU.1.20
O1.ZU.1.21
Geht das ? Die Datensätze könne anders auch aufgebaut sein z.b Trennzeichen, aber entscheiden sind immer die letzten Zahlen. 2 ist halt kleiner wie 19 und muss dann auch zuerst kommen und nicht danach.
Hat jemand eine Idee?