Listbox, mehrere Suche für eine Spalte
24.10.2016 11:12:38
Robert
Hallo Zusammen,
im Moment nutze ich folgenden Code:
Public Sub Suchen_()
Dim lng As Long
Dim i As Integer
Sheets("Zutaten").Activate
Application.ScreenUpdating = True
With frm_Box
.ListBox_Test.Clear
frm_Box.ListBox_Test.ColumnCount = 2
frm_Box.ListBox_Test.ColumnWidths = "50;250"
i = 0
For lng = 2 To ActiveSheet.UsedRange.Rows.Count
Sucher1 = .txt_Test1_Nr
Sucher2 = "03 Testfilter"
If Cells(lng, 4) = Sucher1 And Cells(lng, 5) = Sucher2 Then
.ListBox_Test.AddItem Cells(lng, 7).Value
.ListBox_Test.Column(1, i) = Cells(lng, 10).Value
.ListBox_Test.Column(2, i) = Cells(lng, 5).Value
.ListBox_Test.Column(3, i) = Cells(lng, 5).Row
i = i + 1
End If
Next lng
End With
End Sub
Sucher 1 sind Zahlen von 1 bis 10.
Jetzt möchte ich mir in der Listbox aber nichtnur alle Werte passend zu einer Zahl anzeigen lassen. Es kann vorkommen das ich gerne alle Werte zu 1, 2 und 5 sehen möchte.
Dazu die Frage: Wie würdet ihr das aufbauen?
Im Moment wird die Zahl im Textfeld "txt_Test1_Nr" hinterlegt.
Wie bekomme ich es hin das mir also mehrere Sucher in der Listbox ausgegeben werden? Mehrere Textfelder? Und wie müsste der Code aussehen?
Danke und Gruß
Robert
Anzeige