UserForm erstellen

Hallo

--------------------------------------------------------

'In der Userform ein Combinationsfeld 'ComMonate' erstellen
 
Private Sub UserForm_Initialize()
Dim n   As Byte
 
For n = 1 To 12
    ComMonate.AddItem Format(DateSerial(2002, n, 1), "mmmm")
Next n
    ComMonate.ListIndex = 0
 
End Sub
 
Private Sub ComMonate_Change()
    Sheets(1).Cells(ComMonate.ListIndex + 1, 1).Select
End Sub
--------------------------------------------------------

mfg, GraFri