Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sortieren und zum aktuellen Datum wechseln

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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt..
01.09.2016 14:33:11
Schließer
AW: Sortieren und zum aktuellen Datum wechseln
01.09.2016 14:51:07
robert
Hi,
statt Range("B170").Select
diesen Befehl einfügen
Cells(Application.Match(CDbl(Date), Columns(2), 0), 2).Select
Gruß
robert
AW: Sortieren und zum aktuellen Datum wechseln
01.09.2016 14:56:42
Ali
danke für die schnelle antwort. hat super geklappt ;)
freut mich ;-) owT
01.09.2016 15:00:28
robert
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige