Gruppe
Ereignis
Bereich
Open
Thema
Beim Öffnen der Arbeitsmappe ComboBox-Wert setzen
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.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
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