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.