Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Meldung bei Datumsüberschreitung

Gruppe

Open

Problem

Wenn die Kalenderwochen-Differenz zwischen dem Wert in Zelle A1 und dem aktuellen Datum in Zelle B1 größer als 2 ist, soll beim Öffnen der Arbeitsmappe eine Meldung ausgegeben werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   With Worksheets("Tabelle1")
      If .Range("D1").Value - .Range("C1").Value > 2 Then
         MsgBox "Zwei Kalenderwochen wurden überschritten!"
      End If
   End With
End Sub