Option Explicit
Sub finde_time()
Dim rngStart As Excel.Range
Dim rngEnd As Excel.Range
Dim dtmStart As Date
Dim dtmEnd As Date
dtmStart = TimeSerial(14, 30, 0)
dtmEnd = TimeSerial(15, 30, 0)
With Range("A:A")
Set rngStart = .Find(dtmStart, LookIn:=xlFormulas, LookAt:=xlWhole)
Set rngEnd = .Find(dtmEnd, LookIn:=xlFormulas, LookAt:=xlWhole)
End With
If rngStart Is Nothing Then
Debug.Print "start time: <not found>"
Else
Debug.Print "start time: ", rngStart.Address
End If
If rngEnd Is Nothing Then
Debug.Print "end time: <not found>"
Else
Debug.Print "end time: ", rngEnd.Address
End If
End Sub