VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Beim Öffnen der Arbeitsmappe auf aktuelles Datum prüfen

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

    


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