Hallo Zusammen,
ich habe ein relativ großes Tabellenblatt (Kalender und Projektplan in einem).
In der Zeile 4 ist das Datum hinterlegt, angefangen in Zelle B4 mit dem 01.01.2023 bis hin zur Zelle NC4 mit dem 01.01.2024.
So weit, so gut.
Um die Navigation zu erleichtern, habe ich ein Makro hinterlegt, damit das heutige Datum gefunden und ausgewählt wird.
Das klappt auch mit der Anwahl der Zelle (wird als aktuelle Zelle im 'Namenfeld' angezeigt), aber angezeigt wird immer noch die ersten Spalten des Tabellenblattes (angefangen mit Spalte A).
Ziel sollte sein, dass nach Anklicken des Makros nicht nur das heutige Datum ausgewählt wird, sondern auch am Bildschirm angezeigt wird.
Ich habs schon mit "ScrollRow"-Befehlen versucht, aber es passiert nichts. Liegt das daran, dass im Makro ein "Exit Sub" auftaucht und einfach das Makro vor dem Scrollbefehl endet? Wie kann ich das umgehen?
Vielen Dank für euren Antworten.
Gruß
Michael
Dim daterng As Range
Dim DateCell As Range
Dim WorkSht As Worksheet
Dim dateStr As String
Application.ScreenUpdating = False
For Each WorkSht In Worksheets
WorkSht.Select
'Set daterng = Range("A:A")
Set daterng = WorkSht.UsedRange
'daterng.Select
For Each DateCell In daterng
DateCell.Activate
ActiveCell.Select
On Error Resume Next
dateStr = DateCell.Value
If dateStr = Date Then
DateCell.Select
Exit Sub
End If
Next
Next WorkSht
Application.ScreenUpdating = True