Abfrage Datum
02.02.2019 14:12:13
Alex
Public Sub aaa()
If WorksheetFunction.CountIf(Worksheets("ErfassungEinsätze").Columns("A:A"), Date) > 0 _
Then
MsgBox "Aktuelles Datum schon vorhanden."
End If
End Sub