Gruppe
Allgemein
Problem
Bei Änderung des Jahres in Zelle F1 werden die nach Wochentagen festgelegten Aufgaben neu zugewiesen.
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