Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

UserForm-ComboBox-Feld nach Tasteneingabe aufklappen

Gruppe

ComboBox

Problem

Wie kann ich erreichen, daß ein UserForm-DropDown-Feld nach einer Tasteneingabe automatisch aufklappt?

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

ClassModule: frmDropDown

Private Sub cmdContinue_Click()
  Unload Me
End Sub

Private Sub cboA_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  cboA.DropDown
End Sub

Private Sub cboB_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  cboB.DropDown
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