0 leden en 1 gast bekijken dit topic.
Sheets("Blad1").Range("A1").AutoFilter 1, "01*"
Sheets(1).Cells(1).CurrentRegion.AutoFilter 1, TextBox1.Value & "*"