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.
|