ich möchte eine Combobox mit Montat und Jahr füllen. Es soll der letzte und die nächsten 12 Monate angezeigt werden. Das Format soll so ausschauen
Juni 2012
kann mir dabei jemand helfen?
LG
Hans
Private Sub UserForm_Activate()
Dim lngIndex As Long
For lngIndex = 0 To 12
ComboBox1.AddItem Format(DateSerial(Year(Date), Month(Date) + lngIndex, 1), "MMMM yyyy")
Next
End Sub