Meldung bei überschrittenen Datum
09.02.2019 11:44:40
MaBlu
ich habe ein Makro das mir beim öffnen der Datei eine Meldung ausgibt, das geht soweit.
Ich möchte aber das Datum nicht im Makro stehen haben sondern im Tabellenblatt Monat in Zelle A36!
Wie ist dieser Code zu ändern? Meine Recherche in Google hat mich nicht weitergebracht.
Private Sub Workbook_Open()
Dim dteDatum As Date
dteDatum = Date
If dteDatum > CDate("06.02.2019") Then
Call MsgBox(" Bitte die Arbeitstage erneuern! Im Blatt Monate")
End If
End Sub
Gruss MaBlu