Excel und VBA: Formeln, Programmierung, Lösungen

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