Automatisch bei öffnen sortieren
chris58
Ich habe eine Datei, die nach dem öffnen automatisch nach Datum in Spalte A sortiert werden soll.
Ich habe das ganze mit dem Makro Recorder aufgezeichnet, doch leider geht das nicht, so wie ich es haben will. Es sorteirt überhaupt nicht. Kann mir bitte einer helfen, damit das nach dem Eingeben der Daten und danach schliessen und wieder öffnen, automatisch sortiert.
Danke im voraus
chris
Private Sub Workbook_Open()
ActiveWindow.SmallScroll Down:=-6
Range("A1:I41").sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub