ich hoffe ihr könnt mir helfen. ich möchte, dass Excel meine liste nach Datum sortiert und dann zum aktuellsten Datum wechselt bzw. anzeigt. ich habe über den Recorder folgendes erzeugt:
Sub Makro1()
' Makro1 Makro
ActiveWindow.SmallScroll Down:=219
Range("K10000").Select
Range("B4:K10000").Select
Range("K10000").Activate
ActiveWorkbook.Worksheets("ToDoListe").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ToDoListe").Sort.SortFields.Add Key:=Range( _
"B4:B10000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ToDoListe").Sort
.SetRange Range("B3:K10000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B170").Select
End Sub
wie bekomme ich es hin, dass mein makro mit dem befehl der vorletzten zeile ( range("b170").select ) zum aktuellsten Datum wechselt?