und dann weiterhin zur Verfügung stehen.
Gibt es hierfür eine Lösung.
Vielen Dank für die Vorschläge
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim rngEintrag As Range
If KeyCode = 13 Then
Set rngEintrag = Range(ComboBox1.ListFillRange).Find(ComboBox1, lookat:=xlWhole)
If rngEintrag Is Nothing Then
Range(ComboBox1.ListFillRange).Cells(ComboBox1.ListCount + 1) = ComboBox1
ComboBox1.ListFillRange = Range(ComboBox1.ListFillRange).Resize( _
Range(ComboBox1.ListFillRange).Rows.Count + 1, 1).Address
End If
Set rngEintrag = Nothing
End If
End Sub
Wenn du einen neuen Eintrag im Kombinationsfeld gemacht hast und diesen mit Enter abschließt, wird er der Liste hinzugefügt.