Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Kompilierungsfehler bei Datumsprüfung | Herbers Excel-Forum


Betrifft: Kompilierungsfehler bei Datumsprüfung von: Dietmar aus Aachen
Geschrieben am: 16.11.2009 11:31:43

Hallo zusammen,

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

  

Betrifft: AW: Kompilierungsfehler bei Datumsprüfung von: Andre
Geschrieben am: 16.11.2009 11:37:05

versuch es mal mit date(now)
wäre sonst nur so ne idee von mir


  

Betrifft: If VBA.Date >= ... owT von: Rudi Maintaire
Geschrieben am: 16.11.2009 12:02:07




  

Betrifft: JA! das wars! von: Dietmar aus Aachen
Geschrieben am: 17.11.2009 07:27:48

Hallo Rudi,

DANKE!

Das hat geklappt, Fehlermeldung bleibt auch auf fremden PCs aus.
Worin liegt eigentlich der Unterschied zwischen Date und VBA.Date ?

Viele Grüße
Dietmar aus Aachen