Kann mir jemand erklären, wie ich in diesem Filterprogramm das Kriterium (Criteria1:="Schalten") ersetze mit dem Feldwert aus A88?
Sub Filter()
Range("A42:R84").Select
Selection.Sort Key1:=Range("A43"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.AutoFilter Field:=1, Criteria1:="Schalten"
End Sub
Danke für euren Tipp!!!