ich habe in einer Zelle Datum und Uhrzeit als Formatierung, z.B. 01.01.2006 10:00:00, wird auch so für weitere Berechnungen benötigt.
Jetzt möchte ich aber nach der Uhrzeit, ohne dass das Datum eine Rolle spielt, sortieren lassen und das bekomme ich irgendwie nicht hin.
Bisher mit folgendem Makro versucht, wird zwar nach Uhrzeit am gleichen Tag aber sonst wieder nach Datum sortiert.
Wäre super, wenn mir jemand helfen könnte.
Makro:
Sub TeilSortierung()
Dim zaehler1 As Long
Dim zaehler2 As Long
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zaehler2 = 1 To Len(Cells(zaehler1, 1).Value)
If Mid(Cells(zaehler1, 1).Value, zaehler2, 1) = " " Then
Cells(zaehler1, 1).Value = Mid(Cells(zaehler1, 1), zaehler2 + 1, Len(Cells(zaehler1, 1).Value)) _
_
& " " & Mid(Cells(zaehler1, 1), 1, zaehler2 - 1)
zaehler2 = Len(Cells(zaehler1, 1).Value)
End If
Next zaehler2
Next zaehler1
Rem der zu sortierende bereich waere anzupassen ("b5:aB65535")
Range("b1:aB65535").Sort Key1:=Range("m5"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:= _
1, _
MatchCase:=False, Orientation:=xlTopToBottom
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zaehler2 = 1 To Len(Cells(zaehler1, 1).Value)
If Mid(Cells(zaehler1, 1).Value, zaehler2, 1) = " " Then
Cells(zaehler1, 1).Value = Mid(Cells(zaehler1, 1), zaehler2 + 1, Len(Cells(zaehler1, 1).Value)) _
& _
" " & Mid(Cells(zaehler1, 1), 1, zaehler2 - 1)
zaehler2 = Len(Cells(zaehler1, 1).Value)
End If
Next zaehler2
Next zaehler1
End Sub
Vielen Dank schon einmal im Voraus.
Gruß
Katja