Function findRange4Date(rng As Range, vDate) As Range
        Dim r As Range, rngUL As Range, rngBR As Range
        strDate$ = Format$(vDate, "yyyy-mm-dd")
        Set r = rng.Parent.UsedRange.Find(strDate, LookIn:=xlValues, lookat:=xlWhole)
        If r Is Nothing Then Exit Function
        Set rngUL = r.End(xlToLeft)
        While r.Value = strDate
            Set r = r.Offset(1)
        Wend
        Set r = r.Offset(-1)
        Set rngBR = r.End(xlToRight)
        Set findRange4Date = Range(rngUL, rngBR)
End Function

Sub a_test()
         Dim rng as Range
         Set rng = findRange4Date(Sheets("Tabelle1").Cells(1, 1), #3/4/2015#)
         If rng Is Nothing Then
             MsgBox "Данных нет"
         Else
             rng.Select
         End If
End Sub