Textbox zeigt keinen Text mehr

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
' Zugriff auf die Tabelle 1 und Autofilter auf erste Spalte gesetzt , Textbox linked Cell = A1
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=1, Criteria1:="*" & [A1] & "*", Operator:=xlFilterValues
'start der Schleife im Modul
sbOnce True
Application.ScreenUpdating = True
End Sub

Private Sub ListBox1_Click()
' Listbox greift auf den Filter der Textbox zu
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=1, Criteria1:=ListBox1.Text, Operator:=xlFilterValues
End Sub