Du kannst deine Combobox auch filtern. Wenn du den Code gemäß dieser Seite gestaltest, siehst du sobald du den Dropdown-Button bemühst, nur Werte, die mit deiner Eingabe beginnen. Setze dazu die MatchEntry-Eigenschaft der Combobox auf fmMatchEntryNone. Dadurch wird zwar pfel nicht mehr hinten dran gehängt, aber dafür siehst du in der Drop-Down-List wirklich alle zutreffenden Werte die z.B. mit Sch (Schokolade und Schaschlik z.B.) oder mit Pf (Plaumen, Pfirsische etc.) beginnen und brauchst nur den richtigen auswählen.
Private Sub CommandButton1_Click()
ActiveCell.Value = ComboBox1.Value
End Sub
Private Sub UserForm_Initialize()
arr = Sheets("Tabelle2").Range("B2:B9")
ComboBox1.List = arr
End Sub
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'code von https://stackoverflow.com/questions/52051961/filter-combobox-list-as-you-type-excel-vba
Dim arrIn As Variant, arrOut As Variant
Dim i As Long, j As Long
arrIn = Sheets("Tabelle2").Range("B2:B9")
ReDim arrOut(1 To UBound(arrIn), 1 To 1)
For i = 1 To UBound(arrIn)
If arrIn(i, 1) Like ComboBox1.Text & "*" Then
j = j + 1
arrOut(j, 1) = arrIn(i, 1)
End If
Next
ComboBox1.List = arrOut
End Sub
Gruß Mr. K.
|