Gruppe
Allgemein
Bereich
Berechnen
Thema
In einer Arbeitsmappe mit Monatsblättern zum aktuellen Datum
Problem
Auf Schaltflächenklick soll der aktuelle Tag in der entsprechenden Monatstabelle ausgewählt werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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