ComboBox lässt keine Eingabe zu
Heiko
weiß jemand, woran das liegen könnte, dass meine Kombobox keine eigenen Eingaben zulässt?
Die ComboBox wird über die addItem Methode mit einer Liste befüllt. Funktioniert auch. Die Liste beginnt in Zeile 3. Zeile 2 enthält eine Überschrift.
fmStyle ist als dropDownCombo deklariert, sollte also Eingaben zulassen. Ich kann jedoch nur Einträge aus der Liste auswählen, jedoch keine neuen Eingaben machen oder z.B. vorhandene ändern. Stattdessen wird seltsamerweise der Eintrag aus Zeile 2 der Liste angezeigt und markiert, der sich nicht verändern lässt...
Hier mal der Code:
Füllen...
Sub UserForm_initialize()
Dim count As Integer
Dim i As Long
countData count
With comboBox
For i = 3 To count
.AddItem Sheets("xyz").Cells(i, 1)
Next
End With
End Sub
Private Sub comboBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
lIndex = comboBox.ListIndex
End If
' dann lIndex Wert an andere Funktion übergeben
End Sub
Vielen Dank im Voraus,
Heiko