Sortieren nach Datum funktioniert nicht
30.10.2003 13:51:51
Pascal
Ich habe folgendes Problem:
Wenn ich meine Liste mit einem Datum eines anderen Blattes sortieren möchte, erscheint nach der Übernahme des Datums in den Filter (Benutzerdefiniert) nur die entsprechende 5-Stellige Zahl des Datums. Wer kann mir helfen???
Im weiteren möchte ich die weiteren Datum aufsteigend sortieren was auch nicht funktioniert.
Mein Makro sieht wie folgt aus:
Sub SortierenNachDatum()
Sheets("Planung").Select
Selection.AutoFilter Field:=84, Criteria1:=Sheets("Menu").Range("E11")
Selection.Sort Key1:=Range("CF4"), Order1:=xlAscending, Key2:=Range("B4") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("CJ3").Select
End Sub
Tabellen-Bsp.: Die Daten sollten aufsteigend sortiert sein.
02.10
05.10
01.11
20.10
17.10
Das Datum wir im Blatt Menu aus Zelle E11 geholt. D.h., wenn ich ab dem 02.10 sortieren will, wird der Wert 37896 im Filter eingetragen.
Wer kann mir helfen??? Wie muss ich das Makro abändern, damit es funktioniert??
Besten Dank für Eure Hilfe.