csv Datei Datum sortieren
Steffen
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
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