Hallo Leute,
ich brauch eure Hilfe:
Und zwar werden in mein Arbeitsblatt mehrere Dateien importiert. In der ersten Spalte ab der zweiten Zeile steht immer das Datum (z.B. Apr 11 14:27:27 2013) und ich soll die Daten jetzt nach dem Datum sortieren. Mein Ansatz lautet:
z = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row 'Zählen der beschriebenen Zellen
For w = 2 To z
sText = Cells(w, 1)
arr = Split(sText, " ")
Select Case arr(0)
Case "Mar"
arr(0) = "Mrz"
Case "May"
arr(0) = "Mai"
Case "Oct"
arr(0) = "Okt"
Case "Dec"
arr(0) = "Dez"
End Select
Datum = CDate(Join(Array(arr(1), arr(0), arr(3)), "."))
Next w
Range("A:A").NumberFormat = "dd.mmm.yyyy"
Selection.Sort Key1:=Range("A:A"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Ich bekomm zwar keine Fehlermeldung, aber sortiert wird auch nichts!
Danke für die Hilfe!
Gruß, Ann