Zellinhalt vergleichen

Selected Range 5/22/2012 12:00:00z until 5/23/2012 12:00:00z

Sub Zellinhalt_A3_vergleichen_mit_Act_Datum()
Dim Zell_Inhalt As String
Zell_Inhalt = "Selected Range " & Format(Date, "m/dd/yyyy 12:00") & ":00z until " & Format(Date  _
+ 1, "m/dd/yyyy 12:00") & ":00z"
If ActiveSheet.Range("A3").Value = Zell_Inhalt Then
MsgBox "jo, Übereinstimmung"
Else
MsgBox "nee, nicht identisch"
End If
MsgBox Zell_Inhalt & vbCr & vbCr & ActiveSheet.Range("A3").Value
End Sub