Thema: csv Datei Datum sortieren | Herbers Excel-Forum

Hallo Excelprofis,
ich importiere eine csv Datei um sie mit Hilfe des Programms zu bearbeiten. Nun möchte ich ,dass die Spalte mit Datum u Uhrzeit so sortiert wird das oben das aktuellste Datum mit der ersten Zeit dargestellt wird.
Wenn ich das ganze mit dem Macrorecorder aufzeichne funktioniert es auch nur wenn ich dann den code abspiele wird falsch sortiert ?!
hier der Code:

Sub Test()
Dim LoZeile As Long
LoZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
With Sheets(1).Range("A2:A" & LoZeile)
.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
:=True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 4), _
TrailingMinusNumbers:=True
.EntireColumn.AutoFit
End With
Range("A2:A" & LoZeile).Sort Key1:=Range("A2"), Order1:=xlDescending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

..und hier die Datei:
https://www.herber.de/bbs/user/66030.xls
Ich währe Euch Dankbar wenn Ihr mir ein Denkanstoß geben könntet.
Viele Grüße
Steffen

Hallo Steffen,
ggf. so ?
Gruß
Franz

Sub Test()
Dim LoZeile As Long
LoZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
With Sheets(1)
'Inhalte Spalte A ab Zeile 2 am Semikolon/Tab in Spalten trennen
With .Range("A2:A" & LoZeile)
.TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
:=True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 4), _
TrailingMinusNumbers:=True
End With
.Columns.AutoFit
'Zeilen ab Zeile 2 nach Spalte A sortieren
With .Range(Rows(2), Rows(LoZeile))
.Sort Key1:=.Range("A1"), Order1:=xlDescending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End With
End Sub

.