Office: Textbox als Suche

Hallo,
wie kann ich den Code mit der Funktion bei einer Textbox nutzen.

Sub FilterAnwendenListObject()
Dim wksTab
Dim Vardat As Variant

Set wksTab = Tabelle1
Vardat = Array(wksTab.Range("L6").Text)

With wksTab.ListObjects(1)
.Range.AutoFilter Field:=6, Criteria1:=Vardat, _
Operator:=xlFilterValues
End With
End Sub

Was muss ich machen, damit die Textbox als Suchfeld nutzen kann?

 

Hi,

was für ein Textfeld verwendest du - aus den Formen oder ActiveX-Steuerelement im Tabellenblat oder UserForm?

---

 

Hi,
ich nutze ein ActiveX-Steuerelement.

 

Hi,

nach diesem Prinzip:

Code:

Vardat = Array(wksTab.TextBox1.Text)

Name der TextBox bitte anpassen.

---

 

Danke, es funktioniert.