Hallo,

hoffentlich kann mir jemand hier weiter helfen....

Ich würde gerne meine ganze Tabelle bzw. 4 Spalten nach einem Kriterium filtern. Dazu würde ich gerne das Kriterium aus einer Dropdown-Liste wählen können.

Derzeit kann ich in meiner Tabelle jeweils nur eine Spalte mit folgendem Code filtern

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
    If Range("B2") = "All" Then
        Range("A5").AutoFilter
    Else
        Range("A5").AutoFilter Field:=2, Criteria1:=Range("B2")
    End If
End If
End Sub

Anbei schick ich Link mit der Datei zum Herunterladen:

 https://we.tl/t-O7Iag94Vyn

Ich habe nie davor VBA verwendet und bräuchte dringend eine Lösung.