Gruppe
Ereignis
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?
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