Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Terminmeldung beim Öffnen der Arbeitsmappe

Gruppe

Open

Problem

Wie kann ich veranlassen, daß beim Öffnen einer Arbeitsmappe eine Terminliste überprüft wird und bei Übereinstimmung mit dem aktuellen Tag eine Meldung erfolgt?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Dim wks As Worksheet
   Dim var As Variant
   Set wks = Worksheets("Tabelle1")
   var = Application.Match(CDbl(Date), wks.Columns(1), 0)
   If Not IsError(var) Then
      MsgBox "Heutiger Termin:" & vbLf & _
         wks.Cells(var, 2).Value
   End If
End Sub