Hallo
-------------------------------------------------------- mfg, GraFri
'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
--------------------------------------------------------