Range.Autofilter erweitern
07.03.2024 09:04:30
Alex Weis
ich hab wieder mal eine Frage:
Ich habe ein Tabellenblatt mit intelligenter Tabelle welches per Suchfeld (TextBox1 mit Linked Cell AC1) gefiltert wird. Das funktioniert auch soweit tiptop.
Sobal ich einen Eintrag ins Suchfeld mache wird die Spalte 6 on the fly gefiltert.
Hier der Code:
Private Sub TextBox2_Change()
Application.ScreenUpdating = False
ActiveSheet.ListObjects("Materialliste").Range.AutoFilter Field:=6, Criteria1:="*" & [AC1] & "*", Operator:=xlFilterValues
Application.ScreenUpdating = True
End Sub
Wie muss ich diesen Code ändern um die Range auf Spalte 6 + Spalte 8, oder Spalte 6 bis Spalte 8 zu erweitern?
Vielen dank schon mal :-)
Liebe Grüße
Alex