Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

In einer Arbeitsmappe mit Monatsblättern zum aktuellen Datum

Gruppe

Berechnen

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