Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

ComboBox-Felder in UserForm aufklappen

Gruppe

ComboBox

Problem

Wie kann ich erreichen, daß DropDown-Felder in UserForms - wenn sie den Focus haben - nach Betätigung der Enter-Taste aufklappen?

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

ClassModule: frmDropDown

Private Sub cboA_Enter()
  cboA.DropDown
End Sub

Private Sub cboB_Enter()
  cboB.DropDown
End Sub

Private Sub cmdContinue_Click()
  Unload Me
End Sub

Private Sub UserForm_Initialize()
  Dim iCounter As Integer
  For iCounter = 1 To 12
    cboA.AddItem Format(DateSerial(1, iCounter, 1), "mmmm")
  Next iCounter
  cboA.ListIndex = 0
  For iCounter = 1 To 7
    cboB.AddItem Format(DateSerial(1, 1, iCounter), "dddd")
  Next iCounter
  cboB.ListIndex = 0
End Sub

StandardModule: basMain

Sub CallForm()
   frmDropDown.Show
End Sub