Hallo Jan,
wenn du eh die Combobox vorher befüllst, dann nimm gleich den Listindex davon + 1.
Dann hast du eh schon das gewünschte Monat.
Hiermit kannst du es auflisten.
Dim D_von As Date, D_bis As Date, D As Date, zeile As Integer
D_von = DateSerial(Year(Date), Me.monatComboBox1.ListIndex + 1, 1)
D_bis = DateSerial(Year(Date), Me.monatComboBox1.ListIndex + 2, 1) - 1
zeile = 1
For D = D_von To D_bis
Cells(zeile, 1) = D: zeile = zeile + 1
Next D
code einfach in ein Button - Sub rein.
Hiermit kannst du die Combobox sehr leicht befüllen beim Start der Userform.
Private Sub UserForm_Activate()
Dim i As Integer
Me.monatComboBox1.Clear
For i = 1 To 12
Me.monatComboBox1.AddItem Format(DateSerial(Year(Date), i, 1), "MMMM")
Next i
End Sub
|