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