Auswahl Textbox erweitern, Onur ?
18.02.2022 10:01:26
wolfgang
wich habe diese Makros von Onur erhalten, um bei der Eingabe der Textbox auf der Userform die Auswahl
der Listbox durchzuführen, klappt bestens !
Ich möchte die Auswahl auf die Spalte B erweitern, so das Spalte B+C die Auswahl bzw. Selektion erfolgt.
Private Sub TextBox1_Change()
Dim z As Long, nam, i As Long
ListBox1.Clear
For z = 3 To 100000
nam = Cells(z, 3)
If nam "" And InStr(UCase(nam), UCase(TextBox1)) Then
Call AddList(i, z)
i = i + 1
End If
Next z
End Sub
Public Sub AddList(ii As Long, z As Long)
Dim i
ListBox1.AddItem Cells(z, i + 2)
For i = 1 To 8
ListBox1.List(ii, i) = Cells(z, i + 2)
Next i
End Sub
Anzeige