ich habe zwei kurze Frage zur ComboBox. Kann abgefragt werden, ob eine ComboBox "aufgeklappt" ist? Gibt es auch eine Möglichkeit eine "aufgeklappte" ComboBox mit VBA wieder "einzuklappen"?
Folgender Code ist für das KeyDown-Ereignis einer ComboBox hinterlegt:
Private Sub ComboBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then 'Enter-Taste
CommandButton1_Click
ElseIf KeyCode = 38 Or KeyCode = 40 Then 'Pfeiltasten hoch/runter
ComboBox4.DropDown
End If
End Sub
Beim Betätigen der Pfeiltasten (hoch/runter) wird die ComboBox aufgeklappt. Beim Betätigen der Enter-Taste wird ein CommandButton ausgelöst. Nun soll aber beim Betätigen der Enter-Taste "CommandButton1_Click" nur dann ausgelöst werden, wenn die ComboBox nicht aufgeklappt ist. Ist die ComboBox aufgeklappt, soll sie beim Betätigen der Enter-Taste eingeklappt werden.Für Antworten bin ich - wie immer - sehr dankbar!
Viele osterliche Grüße
Martin