Thema: In einer Arbeitsmappe mit Monatsblättern zum aktuellen Datum

StandardModule: Modul1

Sub CreateMonths()
   Dim lDay As Long
   Dim iWks As Integer, iDay As Integer
   For iWks = 1 To 12
      Worksheets.Add after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = Format(DateSerial(1, iWks, 1), "mmmm")
      For lDay = DateSerial(Year(Date), iWks, 1) To DateSerial(Year(Date), iWks + 1, 0)
         iDay = iDay + 1
         Cells(iDay, 1).Value = DateSerial(Year(Date), iWks, iDay)
      Next lDay
      iDay = 0
   Next iWks
   Worksheets(1).Select
End Sub

Sub GotoToDay()
   Dim iRow As Integer
   Worksheets(Month(Date) + 1).Select
   iRow = WorksheetFunction.Match(CDbl(Date), Columns(1), 0)
   Cells(iRow, 1).Select
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Berechnen