Function Provjera()
Dim red As Long
Dim tmp
Dim Dat As Date
For red = 2 To Cells(Rows.Count, "A").End(xlUp).Row
tmp = Range("A" & red).Value
On Error Resume Next
Dat = tmp
If Err.Number = 0 Then
Cells(red, 2) = "vrijeme"
Else
Cells(red, 2) = "nije vrijeme"
End If
Err.Number = 0
Next red
End Function