ich habe eine Userform mit einer Listbox. Wenn ich in die TEXTBOX3 einen Suchbegriff eingebe und den Button (Code) drücke, werden mir alle Datensätze in die Listbox geladen, die dem Suchbegriff entsprechen.
(ich weiß leider nicht mehr, wer mir damals dieses Beispiel gemacht hat)
Meine Frage dazu: ich möchte nicht nur nach einem Suchbegriff suchen, sondern nach zwei. Ich stelle mir das so vor, das ich einfach noch eine Textbox (TEXTBOX4) auf meine Userform mache und dass ich darin noch ein Suchbegruff eingeben kann.
Bsp.
wenn ich in TEXTBOX3 "DATEI" eingebe
wenn ich in TEXTBOX4 "LÖSCHEN"
Dann sollen in die Listbox alle Datensätze geladen werden, bei denen BEIDE Suchbegriffe vorkommen.
Ist das Schwierig ? Hier mal mein jetziger Code:
Private Sub CommandButton6_Click()
UserForm1.ListBox1.Clear
'Suchen-Funktion Makros
With UserForm1
.ListBox1.Clear
Sheets("Daten").Activate
e = 0
'For i = 2 To ActiveSheet.UsedRange.Rows.Count
For i = 10 To Cells(Rows.Count, 2).End(xlUp).Row
If InStr(LCase(Cells(i, 1).Value), LCase(.TextBox3.Value)) > 0 Or _
InStr(LCase(Cells(i, 2).Value), LCase(.TextBox3.Value)) > 0 Then
.ListBox1.AddItem Cells(i, 1).Value
.ListBox1.Column(1, e) = Cells(i, 2).Value
.ListBox1.Column(2, e) = Cells(i, 3).Value
.ListBox1.Column(3, e) = Cells(i, 2).Hyperlinks(1).Address _
& IIf(Cells(i, 2).Hyperlinks(1).SubAddress "", "#" _
& Cells(i, 2).Hyperlinks(1).SubAddress, "")
.ListBox1.Column(4, e) = Cells(i, 6).Value
.ListBox1.Column(5, e) = Cells(i, 7).Value
.ListBox1.Column(6, e) = Cells(i, 5).Value
e = e + 1
Else
End If
Next i
End With
Label15 = "Auswahl : " & TextBox3 & " ( " & ListBox1.ListCount & " )"
End Sub
Danke mal
Jockel