excel vba zeitvergleich

Sub test()
Dim zeit As Date
Dim zeit2 As Date

zeit = Range(A1)
zeit = zeit + 0:30
zeit2 = Format(Now, hh:mm)

If zeit = zeit2 Then
MsgBox Test
End If
End Sub

Option Explicit
'Msgbox ausgeben um Urhzeit aus A1,
'wenn Zeitangabe > Zeitangabe(jetzt)

Function MsgAusgeben()
 MsgBox Uhrzeit:  & Format(Now(), hh:nn:ss)
End Function


Sub UhrzeitTestenUndSetzen()
 Dim weckzeit As Date, jetzt As Date
 
->prüfen, ob kein Wert in A1 ist
 If Range(A1).Value =  Then Exit Sub
 
->prüfen, ob ein Zeit-Wert in A1 ist
 On Error Resume Next
 weckzeit = Range(A1).Value
 If Err.Number <> 0 Then
  On Error GoTo 0
  MsgBox A1 enthält keine korrekte Zeitangabe.
  Exit Sub
 End If
 On Error GoTo 0
 
->prüfen, ob ein Zeit in der Zukunft liegt
 jetzt = Format(Now(), hh:nn)
 If jetzt >= weckzeit Then
  MsgBox Weckzeit in der Vergangenheit
  Exit Sub
 End If
 
->Msgbox zur Weckzeit ausgeben
 Application.OnTime weckzeit, MsgAusgeben
End Sub