Gruppe
Dialog
Problem
Ein in einer UserForm-ComboBox ausgewählter Wert soll in die aktive Zelle eingetragen werden.
StandardModule: basMain
Sub CallForm()
frmCboToCell.Show
End Sub
ClassModule: frmCboToCell
Private Sub cboTag_Change()
ActiveCell.Value = cboTag.Value
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim intDay As Integer
For intDay = 1 To 7
cboTag.AddItem Format(Day(Date) + intDay + 0, "dddd")
Next intDay
cboTag.ListIndex = 0
End Sub