ich verwende folgenden Code, um nach einem heutigen Datum zu suchen, welches in der Reihe 2 hinterlegt ist. Jetzt habe ich allerdings das Problem, dass sich das datum aus einer Formel zusammensetzt und dann angezeigt wird. Wenn er jetzt sucht, findet er nichts. Wie kann ich das umbauen ?
Sub AktuellesDatumFinden()
Dim rngArea As Range
'Aktuelles Datum Suchen
Set rngArea = Worksheets("Diensteinteilung").Range("A2:APF2").Find(What:=Date, LookIn:=xlValues) _
_
'Wenn Datum gefunden
If Not rngArea Is Nothing Then
'Umsatz (Nebenzelle der Fundzelle) auswählen
rngArea.Offset(0, 1).Select
Else
'Wenn Datum nicht gefunden
'Nachricht ausgeben
MsgBox "Das Datum " & Date & " wurde nicht gefunden"
End If
End Sub
Danke im voraus
Simon