In einer UF habe ich eine TextBox18 wo eine Bezeichnung drin steht.
Diese Bezeichnung soll in Spalte G gesucht werden (sind mehrmals die gleichen Bezeichnungen), und beim finden der Bezeichnung die entsprechenden Namen aus Spalte E in die Combobox gefüllt werden.
Wird also die Bezeichnung aus der TextBox drei mal in Spalte G gefunden, muss ich drei Namen in der Combobox haben.
Wer kann mir helfen?
Folgenden Code habe ich mir zusammengefrickelt:
Private Sub ComboBox1_Change()
Dim Bereich As Range
Dim rng As Range
Dim arr
ComboBox2.Clear
Set Bereich = Sheets("Drucker").Range("G2:G50") 'Suchspalte
Set rng = Bereich.Find(Left(TextBox18.Text, 4)) 'Was hier steht in Suchspalte suchen
arr = Sheets("Drucker").Range(rng.Offset(0, -3)) 'Werte aus Spalte E in ComboBox2
ComboBox2.AddItem arr
End Sub
Besten Gruß
Thorsten Z