Sortierung nach Datum mit VBA funktioniert nicht
04.11.2004 18:53:49
Guido
ich hoffe mal wieder auf Eure Hilfe.
Also es werden Daten automatisch in eine Tabelle (Name: Daten) geschrieben. In Spalte A wird ein Datum übertragen. Die Datumsspalte ist TT.MM.JJJJ formatiert.
Mit dem unten stehenden Code möchte ich, dass, sobald eine neue Zeile in die Tabelle geschrieben wird, diese nach Spalte A (Datum) aufsteigend sortiert wird.
Dies klappt auch "fast".
Es wird zwar sortiert, jedoch erfolgt die Sortierung lediglich nach den Tagen, nicht nach Monat bzw. Jahr. Also nach der Sortierung habe ich folgende Reihenfolge
01.01.2004
01.02.2004
02.01.2004
03.01.2004
03.02.2004 usw.
Monats- und Jahresangaben werden ignoriert. Was ist falsch an dem Code?
Herzlichen Dank für Eure Hilfe und
Gruß Guido
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1").CurrentRegion.Sort _
Key1:=Range("A2"), _
Order1:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlSortColumns, _
DataOption1:=xlSortNormal
End Sub