Makro zum aktuellen Datum springen

Question

Hallo zusammen,
ich habe folgende Bitte.
Ich habe eine Datei, die beim Öffnen zum aktuellen Datum springt.
Jetzt möchte ich noch nach Click auf eine Schaltfläche (Formularsteuerelement) zum aktuellen Datum springen, egal wo ich mich gerade mit dem Cursor befinde.
Kann man das vorhandene Makro entsprechend abändern (und natürlich zusätzlich einfügen) oder bedarf eines komplett neuen Makros?
Für Eure Hilfe Danke im voraus.
Gruß Flodnug

Um längere Erklärungen zum Aufbau der Datei zu sparen anbei der Link der Datei.
http://www.xup.in/dl,10779530/Termine_2016.xlsm/

Answer 1

Hallo Fludnug,

kopiere dein vorhandes Makro in ein allgemeines Modul:

Sub aktuellesDatum()
Dim rngC As Range
ThisWorkbook.Worksheets(Format(Year(Date), "@")).Select
For Each rngC In Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If rngC = Date Then rngC.Select
Next
End Sub

Und dein Workbook-Open-Makro kannst wie folgt ändern:

Private Sub Workbook_Open()
Call aktuellesDatum
End Sub

Dann kannst du das Makro aktuellesDatum auch einer Schaltfläche zuweisen bzw. per Hand starten.

Gruß

M.O.

Answer 2

Hallo M.O.,
danke für deine Antwort.
Werde es am Wochenende austesten.
Gruß und schönes Wochenende Flodnug