AutoFilter getallen ipv tekst

Private Sub TextBox1_Change()
   Blad1.Range("A2:C" & Rows.Count).AutoFilter field:=1, Criteria1:="*" & TextBox1.Value & "*"
End Sub

Private Sub TextBox1_Change()
Dim sn
On Error GoTo einde
   sn = Filter(Application.Transpose(Cells(1).CurrentRegion.Columns(1)), TextBox1.Text)
   Cells(1).CurrentRegion.AutoFilter 1, sn, 7
   Exit Sub
einde:
showalldata 'of  Cells(1).CurrentRegion.AutoFilter 1
End Sub

Private Sub TextBox1_Change()
On Error GoTo einde
   Cells(1).CurrentRegion.AutoFilter 1, Filter(Application.Transpose(Cells(1).CurrentRegion.Columns(1)), TextBox1.Text), 7
   Exit Sub
einde:
ShowAllData
End Sub

Private Sub TextBox1_Change()
 If TextBox1 <> "" Then
  Range("A1:C" & Rows.Count).AutoFilter 1, TextBox1.Value
 Else
  ShowAllData
 End If
End Sub

Range("A6:w" & Rows.Count).AutoFilter field:=5, Criteria1:="*" & TextBox1.Value & "*", field:=3, Criteria2:=TextBox3.Value

Range("A6:w" & Rows.Count).AutoFilter field:=5, Criteria1:="*" & TextBox1.Value & "*"
Range("A6:w" & Rows.Count).AutoFilter field:=3, Criteria2:=TextBox3.Value

sub M_snb()
  with cells(1).currentregion.offset(5)
     .AutoFilter 5, "*" & TextBox1.Text & "*"
     .AutoFilter 3, TextBox3.Text
  end with
End sub