Hallo,
ich habe in den Spalten A:N Daten.
In der Zeile 1 sind Überschriften mit einem Autofilter versehen.
Die Spalte "I" enthält ein Datum und eine Uhrzeit, die als Text hinterlegt sind.
Die Spalte formatiere ich in folgendes Format um : TT.MM.JJJJ hh.mm.ss
Anschließend markiere ich den kompletten Datenbereich und gehe über "Daten", "Sortieren", "Sortieren nach Überschrift : Letzte Bewegung" (entspricht Spalte "I"), sortieren "Aufsteigend".
Wenn ich das selber mache, dann sortiert Excel das auch richtig, sofern ich es dann aber (habe es als Makro aufgezeichnet) über VBA mache, stimmt das Ergebnis nicht und die Formatierung in das oben beschriebene Format ist wieder auf Standard zurückgesetzt.
Ich weiß leider nicht woran es liegt.
Hat jemand einen Tipp für mich?
Code:
Cells(2, 9).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss"
Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Ergebnis:
16.02.2006 12:00:13
01.02.2006 22:18:55
03.02.2006 09:25:28
05.02.2006 22:01:50
09.06.2005 02:34:42
14.02.2006 11:44:53
16.02.2006 21:26:31
17.02.2006 09:35:47
18.02.2006 13:57:25
19.02.2006 07:32:09
20.08.2005 00:23:44
23.11.2005 19:37:19
31.05.2005 02:17:35