Hallo liebes Forum,
ich hoffe, mir kann jemand bei nachfolgendem Problem helfen:
In einem Userform verwalte ich verschiedene Artikeldatensätze in einer Listbox. Ich habe darüber hinaus auch eine
Filterfunktion, die per Volltextsuche meine Datensätze in der Listbox durchsucht. Funktioniert alles soweit.
Bislang war es so, dass ich in der Volltextsuche mit jeder Eingabe eines weiteren Buchstabens den
Filter automatisch weiter begrenzte. Das lief dann allerdings nicht mehr so flüssig, da der Datenbestand zugenommen hat. Da ich diese
"Buchstaben für Bugchstabensuche" für jedoch nicht mehr verwenden wollte habe ich auf die komplette Begriffeingabe gesetzt und
einen Suchbutton eingebaut, der die Filterung startet.
Über nachfolgenden Code habe ich bislang über einen Hyperlink in einem Tabellenblatt die Artikelnummer an das Userform
übergeben, der dann in der Volltextsuche automatisch gesucht hat (Change-Ereignis nach jedem Buchstaben).
Zwar fügt er mir noch weiterhin die Artikelnummer in der FilterBoxVolltext ein, drückt dann aber logischerweise nicht auf den Suchbutton.
Kann man diesen noch ausstehenden Click zum Einleiten der Suche irgendwie bei der Übergabe per Code mitgeben?
Vielen Dank für Eure Bemühungen.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
With UF_Artikelverwaltung
.FilterBoxVolltext.Value = ThisWorkbook.Sheets("Artikeluebersicht").Range(Target.SubAddress).text
' QUasi hier sowas wie ... drück den SuchButton1
.ListBox1.ListIndex = 0
.Show
End With
End Sub