Gruppe
Dialog
Problem
Wie kann ich eine UserForm-ComboBox mit Tagesangaben an die Auswahl eines Monats in einer Monats-ComboBox anpassen. Die ausgewählten Daten sollen dann in ein Tabellenblatt eingetragen werden.
ClassModule: frmComboBoxes
Private Sub cboMonate_Change()
Dim intCounter As Integer
cboTage.Clear
For intCounter = 1 To Day( _
DateSerial(Year(Date), cboMonate.ListIndex + 2, 0))
cboTage.AddItem intCounter
Next intCounter
cboTage.ListIndex = cboTage.ListCount - 1
End Sub
Private Sub cmdEintragen_Click()
Range("B1").Value = cboMonate.Value
Range("B2").Value = cboTage.Value
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim intCounter As Integer
For intCounter = 1 To 12
cboMonate.AddItem Format(DateSerial(1, intCounter, 1), "mmmm")
Next intCounter
cboMonate.ListIndex = 0
End Sub
StandardModule: basMain
Sub CallForm()
frmComboBoxes.Show
End Sub