Suchmakro Auswahl aus Listbox
Roger
Beim suchen eines Suchmakro bin ich auf eines gestossen welches fast genau meinen Wünschen entspricht.
Die Suchergebnisse werden schön aufgelistet. Jetzt möchte ich wenn in der Listbox verschieden Ergebnisse gefunden werden eins auswählen. Beim Doppelklick auf das gewünschte Ergebis sollte das Userform geschlossen werden und die ausgewählte Zeile markiert resp. angezeigt werden. Ein Sprung auf die Zeile würde auch schon reichen. Gibt es hier Möglichkeiten? Besten Dank schon im voraus. Gruss Roger
Nachfolgend der Code:
Private Sub cmdSearch_Click()
Dim objSH As Worksheet
Dim rngSearch As Range
Dim strFirst As String
If txtSearch "" Then
ListBox1.Clear
Set objSH = Sheets("INFO")
With objSH
Set rngSearch = .Range("A:F").Find(What:=txtSearch, After:=.Range("F65536"), _
MatchCase:=IIf(chkCase, True, False))
If Not rngSearch Is Nothing Then
strFirst = rngSearch.Address
Do
ListBox1.AddItem .Cells(rngSearch.Row, 1)
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(rngSearch.Row, 2)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(rngSearch.Row, 3)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(rngSearch.Row, 4)
ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(rngSearch.Row, 5)
Set rngSearch = .Range("A:D").FindNext(rngSearch)
Loop While Not rngSearch Is Nothing And rngSearch.Address strFirst
Else
ListBox1.AddItem "Kein Treffer!"
End If
End With
End If
End Sub