Datum sortieren VBA
08.02.2019 14:19:45
Torsten
ich versuche mit VBA eine Spalte mit Datum zu sortieren. Dazu formatiere ich die Spalte zuerst, um sicher zu gehen, dass es auch Datumsformat hat. Das funktioniert. Wenn ich nach dem Formatieren schaue, haben die Zellen Format Datum.
Jetzt will ich die Spalte nach Datum aufsteigend sortieren mit
With ThisWorkbook.Sheets("Sheet1")
.Visible = True
.Activate
.Columns("A:P").AutoFit
X = .Range("A" & Rows.Count).End(xlUp).Row
strRange = "A1:P" & X
strColumn = "I"
.Range(strRange).Sort Key1:=Range(strColumn & "1"), Order1:=xlAscending, Header:=xlNo
.Visible = False
End With
Also Beispiel:
aus
28/02/2019
29/01/2019
25/01/2019
25/01/2019
wird
24/01/2019
25/01/2019
28/02/2019
29/01/2019
und nicht
24/01/2019
25/01/2019
29/01/2019
28/02/2019
Wenn ich mit der Sortierfunktion im Tabellenblatt sortiere, wird alles richtig sortiert. Was habe ich im Code vergessen?
Vielen Dank fuer eure Hilfe.
Gruss Torsten