VBA | Filter aufgrund von Wert in Zelle auslösen

[fxm]

Hallo zusammen,

eine Frage: Ich möchte in einer Zelle aus zwei Werten wählen. Dies soll zur Folge haben, dass ein Filter, der ausgruppiert ist, ausgelöst wird. Hat jemand eine Idee wie das mit VBA lösbar wäre.

Mein Beispiel füge ich bei, darin habe ich auch noch eine weitere Erläuterung.

Vielen herzlichen Dank.

fxm

[Kuwer]

Hallo,

folgender Code kommt in das schon vorhandene VBA-Modul des Tabellenblattes "Sheet1":

Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Address = "$I$6" Then

   With Me.ListObjects("Table1")

     .Range.AutoFilter Field:=3

     .Range.AutoFilter Field:=4

     Select Case Target.Value

       Case "Einfach"

         .Range.AutoFilter Field:=3, Criteria1:=1

       Case "Detailliert"

         .Range.AutoFilter Field:=4, Criteria1:=1

     End Select

   End With

 End If

End Sub

Gruß Uwe

[fxm]

Vielen herzlichen Dank. Das hat super geklappt und hilft sehr.

VG fxm

[fxm]

erledigt.