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)
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