VBA Suchfunktion
04.05.2021 15:01:23
Christian
über eine TextBox kann ich ein Wort eingeben (z.B. Haus) und die Suchergebnisse
aus meiner Excel-Tabelle (z.B. Haustür, Hauswand usw.) werden in der ListBox
angezeigt. Das funktioniert soweit ganz gut.
Was mir noch Probleme bereitet: Wenn ich jetzt z.B. Hauswand in der ListBox
auswähle, soll die Excel-Tabelle direkt auf die entsprechende Zelle springen und
die Zelle auch aktivieren. Die Zeile lasse ich mir auch in der ListBox anzeigen. Ich
hoffe mir kann hier jemand helfen.
Private Sub UserForm_Initialize()
With UserForm1.ListBox1
.ColumnCount = 3
.ColumnWidths = "8cm;5,5cm;1cm"
End With
End Sub
Private Sub CommandButton1_Click()
TextBox1 = ""
End Sub
Private Sub CommandButton2_Click()
Range("B2:B").Rows(ListBox1.ListIndex + 2).Select
End Sub
Private Sub TextBox1_Change()
Dim c, firstaddress
ListBox1.Clear
With Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
Set c = .Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
firstaddress = c.Address
Do
ListBox1.AddItem c.Text
ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = c.Row
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstaddress
End If
End With
End Sub
Lieben Dank. Gruß Christian