Suchanfrage mit mehreren Kriterien
20.07.2016 20:18:19
Hermelin
Folgendes Problem
Ich habe ein Tabellenblatt mit 5 Spalten.
Nun versuche ich via TextBox die entsprechenden Zeilen zu finden. Je mehr TextBoxen (5) ich mit Suchkriterien bestücke, desto genauer sollte die Trefferquote in der Listbox sein. Wo habe ich den Fehler in meiner Formel?
Private Sub cmdSuchen_Click()
Dim Ing As Long
Dim i As Integer
Application.ScreenUpdating = False
With frm_Daten
.ListBox1.Clear
Sheets("Adressliste").Activate
i = 0
For Ing = 3 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(Ing, 1).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Cells(Ing, 1).Value
.ListBox1.Column(1, i) = Cells(Ing, 2).Value
.ListBox1.Column(2, i) = Cells(Ing, 3).Value
.ListBox1.Column(3, i) = Cells(Ing, 4).Value
.ListBox1.Column(4, i) = Cells(Ing, 5).Value
.ListBox1.Column(5, i) = Ing
i = i + 1
Else
End If
Next Ing
End With
frm_Daten.Label42.Caption = frm_Daten.Label42.Caption
frm_Daten.Label43.Caption = frm_Daten.Label43.Caption
frm_Daten.Label44.Caption = frm_Daten.Label44.Caption
frm_Daten.Label45.Caption = frm_Daten.Label45.Caption
frm_Daten.Label46.Caption = frm_Daten.Label46.Caption
Application.ScreenUpdating = True
End Sub
Anzeige