Sub datumSort()
Dim Count1 As Long
Dim Count2 As Integer
For Count1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Count2 = 1 To Len(Cells(Count1, 1).Value)
If Mid(Cells(Count1, 1).Value, Count2, 1) = " " Then
Cells(Count1, 1).Value = Mid(Cells(Count1, 1), Count2 + 1, Len(Cells(Count1, 1).Value)) _
& " " & Mid(Cells(Count1, 1), 1, Count2 - 1)
Count2 = Len(Cells(Count1, 1).Value)
Exit For
End If
Next Count2
Next Count1
Range("A1:B" & Rows.Count).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
For Count1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Count2 = 1 To Len(Cells(Count1, 1).Value)
If Mid(Cells(Count1, 1).Value, Count2, 1) = " " Then
Cells(Count1, 1).Value = Mid(Cells(Count1, 1), Count2 + 1, Len(Cells(Count2, 1).Value)) & _
" " & Mid(Cells(Count2, 1), 1, Count2 - 1)
Count2 = Len(Cells(Count1, 1).Value)
Exit For
End If
Next Count2
Next Count1
End Sub
Dieses Modul, wird deine Angaben in Spalte A, richtig sortieren.
Gruss, Robert
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen