Ich bitte um Hilfe zur Anpassung des criterial Feldes.
Ich möchte gern das in Zelle E8 das Filter Wort eingeben
Der Filter ist in E9 dem zufolge soll ab e10 gefiltert werden
Besten Dank im Voraus.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 And Target.Row = 1 Then
If Target.Value "" Then
Selection.AutoFilter Field:=1, Criteria1:=Range("A1").Value
Else
FilterAufheben
End If
End If
End Sub
Sub FilterAufheben()If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub