Mehrere Suchbegriffe in Listbox
08.06.2005 22:56:31
Roli
Unter tbxSucherGruppe erwäge ich eine ComboBox. Die Datei in der gesucht wird, umfasst 1000 Zeilen, aber in etwa sind 10 Wörter vorhanden (mehrere Wörter sind untereinander in der gleichen Spalte unterteilt). Kann man den Suchtext auch so erweitern, dass alle Wörter aufgelistet werden aber nur EIN Wort (keine doppelten oder mehrfache einträge)?
Wäre um jede Hilfe dankbar.
Private Sub tbxSucher_Change()
Dim i As Long
Set Stammblatt = Worksheets(Stamm)
With Me
.lbxArtikel.Clear
For i = 3 To Stammblatt.Cells(Rows.Count, 1).End(xlUp).Row
If UCase(Stammblatt.Cells(i, 1).Value) Like UCase(tbxSucher.Text & "*") Then
With .lbxArtikel
.AddItem Stammblatt.Cells(i, 1)
End With
End If
Next i
End With
End Sub
Private Sub tbxSucherNr_Change()
Dim i As Long
Set Stammblatt = Worksheets(Stamm)
With Me
.lbxArtikel.Clear
For i = 3 To Stammblatt.Cells(Rows.Count, 1).End(xlUp).Row
If Format(Stammblatt.Cells(i, 3).Value, "000000000") Like tbxSucherNr.Text & "*" Then
With .lbxArtikel
.AddItem Stammblatt.Cells(i, 1)
End With
End If
Next i
End With
End Sub
Private Sub tbxSucherGruppe_Change()
Dim i As Long
Set Stammblatt = Worksheets(Stamm)
With Me
.lbxArtikel.Clear
For i = 3 To Stammblatt.Cells(Rows.Count, 1).End(xlUp).Row
If UCase(Stammblatt.Cells(i, 5).Value) Like UCase(tbxSucherGruppe.Text & "*") Then
With .lbxArtikel
.AddItem Stammblatt.Cells(i, 1)
End With
End If
Next i
End With
End Sub