Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open