AW: Suchen in mehreren Spalten-war doch da..
26.03.2021 16:00:15
Yal
Hallo Oraculix,
Du brauchst ja eine Extra-Portion Zaubertrank.
Das ist das gesamte Coding für dein Userform. Mehr nicht.
Private Sub UserForm_Initialize()
'Listbox Treffer Spalten einstellen
With Me.Lst_Treffer
.ColumnCount = 4
.ColumnWidths = "5cm;6,cm;2cm;7"
.ColumnHeads = False
.RowSource = ""
End With
Lst_Treffer_befüllen
End Sub
Private Sub Txt_Eingabe_Change()
Lst_Treffer_befüllen Txt_Eingabe.Text
End Sub
Private Sub Lst_Treffer_befüllen(Optional ByVal Ftext As String = "")
'Befüllung der LST_Treffer Listbox
Dim i As Long
Dim W As Worksheet
Do While Me.Lst_Treffer.ListCount > 0
Me.Lst_Treffer.RemoveItem 0
Loop
Set W = Worksheets("FilmDB")
For i = 2 To W.Range("A99999").End(xlUp).Row
If Ftext = "" Or InStr(1, W.Cells(i, 1) & W.Cells(i, 2) & W.Cells(i, 8), Ftext, _
vbTextCompare) Then
With Me.Lst_Treffer
.AddItem CStr(W.Cells(i, 1))
.List(.ListCount - 1, 1) = CStr(W.Cells(i, 2))
.List(.ListCount - 1, 2) = CStr(W.Cells(i, 8))
End With
End If
Next
End Sub
VG
Yal