Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

csv Datei Datum sortieren

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: csv Datei Datum sortieren
19.11.2009 11:26:21
fcs
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

Anzeige
Danke Franz-passt! Viele Grüße oT.
19.11.2009 15:17:44
Steffen
.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige