Gruppe
Allgemein
Problem
Auf Schaltflächenklick soll der aktuelle Tag in der entsprechenden Monatstabelle ausgewählt werden.
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