Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Beim Öffnen der Arbeitsmappe ComboBox-Wert setzen

Gruppe

Open

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