Gruppe
Dialog
Problem
Wie kann ich erreichen, daß ein UserForm-DropDown-Feld nach einer Tasteneingabe automatisch aufklappt?
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