Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Beim Öffnen der Arbeitsmappe auf aktuelles Datum prüfen

Gruppe

Open

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