Ich habe ein Filteranliegen in meienr Datei das ich nicht lösen kann:
https://www.herber.de/bbs/user/26722.xls
Wer hilft mir
Danke im voraus
Sub filterEin()
Dim n As Long, x As Variant
n = Sheets("Filter").DropDowns("Dropdown 9").Value
If n = 4 Then
x = Null
Else
x = "=" & n
End If
Range("d2").Select
Sheets("Januar").Select
Selection.AutoFilter Field:=2, Criteria1:=x
Sheets("Februar").Select
Selection.AutoFilter Field:=2, Criteria1:=x
Sheets("März").Select
Selection.AutoFilter Field:=2, Criteria1:=x
Sheets("Filter").Select
Range("aufheben").Select
End Sub
Sub filterein()
Dim Ziel As String
Dim shtfilter As Worksheet
Set shtfilter = ThisWorkbook.Sheets(1)
Ziel = Range("D2")
For Schleife = 2 To Sheets.Count
Sheets(Schleife).Select
Selection.AutoFilter Field:=2, Criteria1:=Ziel
Next Schleife
shtfilter.select
End Sub