Sub SuchDatum()
Dim rngSearchRange As Range, rngCell As Range
Dim sSearchString As String
Set rngSearchRange = Range("A2:L32")'an deinen Kalender-Bereich anpassen!
sSearchString = Date
For Each rngCell In rngSearchRange
On Error Resume Next
If CDbl(rngCell.Value) = CDbl(DateValue(sSearchString)) Then
rngCell.Select
Exit For
End If
Next rngCell
Info
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet
Dim r As Range
' Hier musst Du eventuell noch die 1 ersetzen, für ein anderes als das erste Worksheet
Set ws = Worksheets(1)
ws.Activate
Set r = Cells.Find(Date)
If Not r Is Nothing Then
r.Select
Exit Sub
End If
MsgBox "Datum nicht gefunden"
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen