gibt es eine Möglichkeit in einer Combobox einen freien Text einzugeben, der nicht in der ListFillRange steht.
allen ein schönes Wochenende
Private Sub Combobox28_change()
ComboBox22.ListIndex = ComboBox28.ListIndex
ComboBox221.ListIndex = ComboBox28.ListIndex
End Sub