Hilfe bei einem Makro
Frank
Mittels einer UF in der sich eine TextBox zum Eintragen eines zu suchenden Wertes befindet und einer ListBox in der dann der gesuchte Wert angezeigt werden soll lasse ich also Werte in einer Tabelle suchen!
Das Makro für die Suche:
Private Sub CommandButton4_Click()
Dim lng As Long
Dim i As Integer
Application.ScreenUpdating = False
With frmSuchen_CD_Titel
.ListBox1.Clear
Sheets("CD_Archiv").Activate
i = 0
For lng = 3 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(lng, 31).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Cells(lng, 31).Value
.ListBox1.Column(1, i) = Cells(lng, 32).Value
.ListBox1.Column(2, i) = Cells(lng, 34).Value
.ListBox1.Column(3, i) = Cells(lng, 37).Value
.ListBox1.Column(4, i) = Cells(lng, 45).Row
i = i + 1
Else
End If
Next lng
End With
Application.ScreenUpdating = True
End Sub
Nun mein Problem: Trage ich in TextBox1 eine 1 ein, dann bekomme ich in der ListBox alle Ergebnisse mit einer 1 angezeigt. Z.B. 1, 10, 11, 21, 31 usw. Ich möchte aber nur die Daten angezeigt bekommen die sich hinter meinem Suchbegriff verbergen.Ich hoffe, dass ich mich einigermaßen verständlich ausgedrückt habe und erwarte eure Ratschläge.
Danke und herzlichst Frank H.