TextBox suchen vba
27.12.2017 23:30:48
adcak
wie muss ich mein Code ändern damit ich noch ein Textbox für die Suche hinzufügen möchte.
zb. für die Suche möchte ich in
Textbox1 = Tisch und Textbox2 = Köln reinschreiben und die ganze liste mit Tisch, Köln soll ausgegeben werden.
With Wareneingang.ListBox1
Dim i As Long
Dim j As Long
Dim a As Long
ListBox1.Clear
a = Len(TextBox1)
For i = 1 To ZZFFF3.UsedRange.Rows.Count
For j = 1 To Len(ZZFFF3.Cells(i, 2)) - a + 1
If UCase(Mid(ZZFFF3.Cells(i, 2), j, a)) = UCase(TextBox1) Then
.AddItem (ZZFFF3.Cells(i, 1)) 'Spalte A kommt in Column 0
.List(.ListCount - 1, 1) = (ZZFFF3.Cells(i, 2)) 'Spalte B-J
.List(.ListCount - 1, 2) = (ZZFFF3.Cells(i, 3))
.List(.ListCount - 1, 3) = (ZZFFF3.Cells(i, 4))
.List(.ListCount - 1, 4) = (ZZFFF3.Cells(i, 5))
.List(.ListCount - 1, 5) = (ZZFFF3.Cells(i, 6))
.List(.ListCount - 1, 6) = (ZZFFF3.Cells(i, 7))
.List(.ListCount - 1, 7) = (ZZFFF3.Cells(i, 8))
.List(.ListCount - 1, 8) = (ZZFFF3.Cells(i, 9))
.List(.ListCount - 1, 9) = (ZZFFF3.Cells(i, 10))
Exit For
End If
Next j
Next i
End With
hoffe Ihr könnt mir weiter helfen
mfg adcak