über folgenden Code filtere ich mittels eines Autofilters nach dem Kriterium "Yes" in der 3. Spalte.
Private Sub FilterButton_Click()
Worksheets("Data").Unprotect ("go")
Dim ab As Worksheet
Set ab = ThisWorkbook.Worksheets("data")
Call ab.Range("A4").AutoFilter(3, "Yes", , , True)
Worksheets("Data").Protect ("go")
End Sub
Kann man den Code anpassen, sodass auch die Spalten 1 und 2 mitgefiltert werden? Ich komme hierbei leider über ein Kopieren der Zeile
Call ab.Range("A4").AutoFilter(3, "Yes", , , True)
und Einstellen von 1 und 2 nicht hinaus, sodass es dann so aussieht.
...
Call ab.Range("A4").AutoFilter(1, "Yes", , , True)
Call ab.Range("A4").AutoFilter(2, "Yes", , , True)
Call ab.Range("A4").AutoFilter(3, "Yes", , , True)
...
Darunter leidet jedoch die Performance. Vielleicht könnt Ihr mir helfen?
Herzlichen Dank und schöne Grüße
Tommi