Wert in Combobox Suchen und auswählen
30.09.2021 08:49:05
Sebastian
ich suche eine Möglichkeit ein Wert aus einer mehrspaltige Combobox zu suchen und zu selectieren.
Hier mal mein Code:
Sub test()
Dim lngzeile As Integer
ComboBox1.ColumnWidths = "0 cm; 2 cm"
Me.ComboBox1.ColumnCount = 3
Me.ComboBox1.Clear
lngzeile = 1
'Einlesen aus der Tabelle
Do
If Sheets("Tabelle1").Cells(lngzeile, 1) = 21 Then
ComboBox1.AddItem
ComboBox1.List(ComboBox21.ListCount - 1, 0) = lngzeile
ComboBox1.List(ComboBox21.ListCount - 1, 1) = Sheets("Tabelle1").Cells(lngzeile, 3)
Else
End If
lngzeile = lngzeile + 1
Loop While Sheets("Tabelle1").Cells(lngzeile, 2) ""
End Sub
ComboBox1.ListIndex = 0
auswählen kann.
Aber der Wert (Hamburg) steht leider nicht immer in der gelichen Zeile.
ComboBox1.value = "Hamburg"
geht auch nicht da die Combobox ja mehrspaltig ist.
Hat jemand einen Idee wie ich Hamburg in der Combobox suchen und markieren kann?
Vielen Dank uns viele Grüße
Sebastian