Thema: Heinweis, daß 4 Wochen vergangen sind

Home

Gruppe

Ereignis

Problem

Wie kann ich mich beim Öffnen einer Arbeitsmappe darauf hinweisen lassen, daß ab einem bestimmten Datum jeweils 4 Wochen vergangen sind?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   If Date - Worksheets("Tabelle1") _
      .Range("A1").Value >= 28 Then
      MsgBox "Schon wieder 4 WOchen älter geworden!"
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open

Msg mit 2 Ereignissen +Cancel	Workbooks open
Ereignisprozedur	Excel-Tabelle in OpenOrg
getopenfilename mit Teil der Dateiname	Makro für ereignisabh. Druck verschiedener Seiten
Benutzerdefinierte Funktion in Open Office	UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?	GetOpenFilename Dateiname vorbelegen
xlDialogOpen anpassen	Symbolleisten durchloopen: löschen & restore
Zeilen aus- einblenden als Ereignis?	Welches Ereignis ist das richtige ??
Symbolleisten durchloopen und ausblenden	Ereignis Arbeitsblatt sperren abfangen
Workbook open	Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis	xlDialogOpen bei Excel 2007 funzt nicht
komisches phänomän bei set xx open workbook	Change-Ereignis in Combobox unterdrücken
Combobox Ereignis	MS OFFICE - OPEN OFFICE
Userform, Ereignis deklarieren im Klassenmodul	Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen	Command Button Ereignis
Workbook Open	Ereignis von Laufzeit-Checkbox
Wochenangabe bei WorkbookOpen	change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern	change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl	Makro Workbook_Open läuft nicht
Objekt_Error - Ereignis in UserForm	Problem mit OpenRecordset (Array)
bei OPEN macros vermeiden	Workbook_open
change ereigniss auf userform.	Click-Ereignis für Checlbox nicht ausführen?
windows.open und selection.change	workbooks.open Fehlermeldung
Speichern einer Kopie durch Ereigniss Workbook_bef	Reagieren auf Tastaturereignisse
Workbooks.OpenText - Datumsformat	Ausnahmen für Exit-Ereignis
Probleme mit Workboos.Open