VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Terminplananpassung bei Änderung des Kalenderjahres

Gruppe

Allgemein

Bereich

Liste

Thema

Terminplananpassung bei Änderung des Kalenderjahres

Problem

Bei Änderung des Jahres in Zelle F1 werden die nach Wochentagen festgelegten Aufgaben neu zugewiesen.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




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 Allgemein und Liste