VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Beim Öffnen der Arbeitsmappe ComboBox-Wert setzen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open