Microsoft Excel

Herbers Excel/VBA-Archiv

csv Datei Datum sortieren | Herbers Excel-Forum


Betrifft: csv Datei Datum sortieren von: Steffen
Geschrieben am: 18.11.2009 19:13:13

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

  

Betrifft: AW: csv Datei Datum sortieren von: fcs
Geschrieben am: 19.11.2009 11:26:21

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



  

Betrifft: Danke Franz-passt! Viele Grüße oT. von: Steffen
Geschrieben am: 19.11.2009 15:17:44

.


Beiträge aus den Excel-Beispielen zum Thema "csv Datei Datum sortieren"