Gruppe
Ereignis
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.
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