in meiner Tabelle möchte ich über eine Zelle eine Filtern automatisch auslösen. Der Anwender gibt in der Zelle A5 einen Wert ein, worauf sich die Werte in Spalte A ab Zelle 6 anpassen sollen.
Der Quellcode liegt im Tabellenblatt der Tabelle. Leider reagiert der Code jedoch nicht. Wo könnte mein Fehler liegen?
Beste Grüße
Christian
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Address(False, False) = "A5" Then
If Not ActiveSheet.AutoFilterMode Then Range("A6").CurrentRegion.AutoFilter
If Target "" Then
Range("A6").AutoFilter field:=1, Criteria1:=Target.Value
Else
ActiveSheet.AutoFilter.ShowAllData
End If
End If
End Sub