ist es möglich mittels eines Makro's Daten zu filtern, mit 9 verschiedenen Kriterien.
enthält: 2911, 2913, 2921, 2922, 2923, 2924, 2925, 2926, 2932.
Danke jetzt schon für Antwort
Markus
Sub Filter_Daten()
Dim Col_FilterSpalte&
Col_FilterSpalte = 1 'Spalte angeben nach der gefiltert werden soll
With Tabelle1.UsedRange 'Tabelle evtl. anpassen
With .Range(.Cells, .Columns(.Columns.Count).Offset(0, 1))
.Cells(2, .Columns.Count).FormulaR1C1 = _
"=OR(ISNUMBER(FIND({2911,2913,2921,2922,2923,2924,2925,2926,2932},RC" & Col_FilterSpalte & ")))"
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Cells(1, .Columns.Count).Resize(2), Unique:=False
.Columns(.Columns.Count).EntireColumn.Delete
End With
End With
End Sub
Gruß Tino