Gruppe
Ereignis
Problem
Beim Öffnen der Arbeitsmappe soll der Monat des Dropdownfelds auf den Monat nach dem aktuellen Datum und das Jahr auf das Jahr des kommenden Monats eingestellt werden.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim iMonth As Integer, iYear As Integer
If Month(Date) = 12 Then
iMonth = 1
iYear = Year(Date) + 1
Else
iMonth = Month(Date) + 1
iYear = Year(Date)
End If
With Worksheets("Tabelle1")
.Range("B1").Value = iMonth
.Range("B3").Value = Year(Date)
End With
End Sub