VBA: if date endet in runtime error 13 mismatch
17.06.2019 12:30:58
Tom
Werde nicht schlau, vielleicht einer der es direkt sieht. Ich nutze einen Datumsabgleich in einem Makro, um darüber eine Trial für das Excel zu machen. Also, ich gebe ein Datum im Makro vor und prüfe es im Vergleich zum heutigen Datum. An sich funktioniert es, wird das Excel jedoch auf Windows Server 2016 gestartet, kommt immer ein runtime error 13 mismatch. Auf Windows 10 lokal z.b. nicht. Weiss jemand woran das liegt? hier das makro:
'Trial Start
Dim now As Date
now = Date
If now > CDate("30.08.2019") Then
Range(Cells(240, 2), Cells(2000, 33)).ClearContents
Range("A1").Select
MsgBox "Makro-Funktionalität eingeschränkt - TRIAL ABGELAUFEN"
Exit Sub
End If
'Trial End
Danke falls ihr Ideen habt oder wie es auf Windows Server laufen würde?