habe folgendes Makro:
Private Sub CommandButton1_Click()
Dim z As Long
z = Range("a5").End(xlDown).Row
ActiveSheet.Range(Cells(6, 1), Cells(z, 14)).Select
Selection.Sort Key1:=Range("O6"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range("A5").Select
End Sub
Wenn ich das Makro starte, wird nicht so sortiert, wie ich das beim aufzeichnendurchgeführthabe.
Ich habe in der Spalte Datumswerte stehen allerdings von einer CSV Datei importiert.
Wenn ich aufzeichne, wird so sortiert wie ich wünsche.
Nachdem ich das Makro fertig habe, wird das Datum für 2010 einfach in die MITTE der
der Tabelle gesetzt.
mfg walli