Sortieren und zum aktuellen Datum wechseln
01.09.2016 14:30:07
Ali
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
Anzeige