VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Terminmeldung beim Öffnen der Arbeitsmappe

Gruppe

Ereignis

Bereich

Open

Thema

Terminmeldung beim Öffnen der Arbeitsmappe

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

    


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