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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen