Gruppe
Ereignis
Bereich
Open
Thema
Beim Öffnen der Arbeitsmappe auf aktuelles Datum prüfen
Problem
Beim Öffnen der Arbeitsmappe wird überprüft, ob das aktuelle Datum in einem der Arbeitsblätter vorhanden ist.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim rng As Range
For Each wks In Worksheets
Set rng = wks.Cells.Find(Date, LookIn:=xlValues, lookat:=xlWhole)
If Not rng Is Nothing Then
MsgBox "Aktuelles Datum ist in der Arbeitsmappe enthalten!"
Exit For
End If
Next wks
End Sub