Find Range in Zelle berechnert wert
01.01.2022 11:00:40
Hagemann
nach lagen Jahren habe ich auch wieder mal eine Frage,
habe mir zum Testen zwei Zeilen mit Datumswerten vorgeben.
Über eine Eingabe wird das um 02.01.2022 vorgeben
in der Zeile E5 bis O5 Datum von 01.01.2022 -12.01.2022
in der Zeile E6 bis O6 Datum +Tag() aus Zeile darüber also 02.01.2022 - 13.01.2022
https://www.herber.de/bbs/user/150086.xlsm
jetzt zu meinen Problem:
Sub FindDate()
Dim strdate As String
Dim rCell As Range
Dim rCellp1 As Range
Dim lReply As Long
strdate = Application.InputBox(Prompt:="Enter a Date to Locate on This Worksheet", _
Title:="DATE FIND", Default:=Format(Date + 1, "Short Date"), Type:=1)
'Cancelled
If strdate = "False" Then Exit Sub
strdate = Format(strdate, "Short Date")
On Error Resume Next
Set rCell = Range("E5:O5").Find(What:=CDate(strdate), LookIn:=xlFormulas, LookAt:=xlWhole)
Set rCellp1 = Range("E6:O6").Find(What:=CDate(strdate), LookIn:=xlFormulas, LookAt:=xlWhole)
On Error GoTo 0
If rCell Is Nothing Then
lReply = MsgBox("Date cannot be found. Try Again", vbYesNo)
If lReply = vbYes Then Run "FindDate":
Else
MsgBox "Bei Zelle ohne Berechnung Wert gefunden : " & rCell.Address & "da"
End If
If rCellp1 Is Nothing Then
lReply = MsgBox("Date cannot be found. Try Again", vbYesNo)
If lReply = vbYes Then Run "FindDate":
Else
MsgBox "Bei Zelle mit Berechnung Wert gefunden : " & rCellp1.Address & "da"
End If
End Sub
was muß bei
Set rCellp1 = Range("E6:O6").Find(What:=CDate(strdate), LookIn:=xlFormulas, LookAt:=xlWhole)
Bitte möchte nur Find benutzen kein Match und kein For Each
Danke fürs mit Helfen