Private Sub UserForm_Initialize()
Dim MyArray As Variant
Dim n As Long
MyArray = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember")
For n = 0 To UBound(MyArray)
UserForm1.ComboBox1.AddItem MyArray(n)
Next
UserForm1.ComboBox1.ListIndex = Month(Now) - 1
UserForm1.Show
End Sub