Hallo,
ich möchte eine bestimmte Zelle des aktuellen Tabellenblattes so programmieren, dass wenn das eingegebene Datum größer als ein bestimmtes Datum ist, eine Messagebox angezeigt wird.
Mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target > "01.08.2017" Then
MsgBox "Text", vbCritical
End If
ENd SUb
Was mache ich falsch? |