Gruppe
Ereignis
Problem
Beim Öffnen der Arbeitsmappe wird überprüft, ob das aktuelle Datum in einem der Arbeitsblätter vorhanden ist.
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