Suche in Multiselect Listbox
29.04.2019 14:14:22
Torsten
habe eine Frage zu Multiselect Listboxen.
ich habe eine dieser Listboxen, in der ich eine Suche durchfuehren moechte nach einem Eintrag. Ich habe einen Code gefunden fuer eine MuliselectMulti. Ich habe aber und brauche auch eine Multiselect.Extended Listbox. Der Code funktioniert dort nicht und ich finde nicht wirklich was zu Extended Listboxen. Kann mir jemand helfen, diesen zu aendern, damit er in dieser Extended Listbox funktioniert?
Hier der Code:
Private Sub CommandButton1_Click()
Dim i As Long
With Overd.LBOverd
For i = 0 To .ListCount - 1
If .List(i) = TextBox1.Text Then
.Selected(i) = True
End If
Next i
End With
End Sub