Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tages-ComboBox einer UserForm an den ausgewählten Monat anpassen

Gruppe

ComboBox

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.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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