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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen