Kompilierungsfehler bei Datumsprüfung
Dietmar
kann mir jemand sagen, warum der nachfolgende Code einen Kompilierungsfehler erzeugt?
"Fehler im verborgenen Modul ..."
Das besondere ist dabei, dass das nicht auf meinem Recher geschieht, sondern nur wenn ich die zugrundeliegende Datei an andere weitergebe. Fehlt bei denen dann etwas oder habe ich etwas falsch gemacht.
Mit dem Code prüfe ich, ob das heutige Datum in Zelle V1 >=Heute ist und gebe dann eine msgbox mitteilung heraus.
Also so eine Art Verfallsdatum für die Nutzung der Datei.
Danke für jede Hilfe
Dietmar aus Aachen
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
ActiveSheet.ScrollArea = "A1:AY91"
Range("A1:AY1").Select
ActiveWindow.Zoom = True
Range("A46").Select
ActiveWindow.DisplayGridlines = False 'Gitterlinien
ActiveWindow.DisplayHeadings = False 'Zeilen- und Spaltenüberschriften
ActiveWindow.DisplayWorkbookTabs = True 'Registerlaschen
Dim Verfallsdatum As Date
Verfallsdatum = Application.Range("V1").Value
If Date >= Verfallsdatum Then
MsgBox "Das Abonnement ist abgelaufen.", vbCritical, "Zu Ihrer Information"
'ThisWorkbook.Close, diese Alternative nicht genommen, stattdessen Aufruf der Eingangsseite
Application.EnableEvents = False '>>> damit Worksheet-Activate()-Prozedur nicht abläuft
Worksheets("Eingangsseite").Activate
Application.EnableEvents = True
End If
Application.ScreenUpdating = True
End Sub
Anzeige