Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Heinweis, daß 4 Wochen vergangen sind

Gruppe

Open

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