AdvancedFilter ohne CriteriaRange
31.07.2019 12:12:15
Berny
ich versuche mich gerade am AdvancedFilter und möchte aber den CriteriaRange nicht in der Tabelle haben. Mein erster Versuch war die Kriterien in ein Array zu schreiben. Das war leider nicht erfolgreich.
Mache ich etwas falsch, oder hat einer eine ganz andere Idee?
Sub Makro2()
Dim MyArray()
ReDim Preserve MyArray(0, 1)
MyArray(0, 0) = "Schulung" 'Überschrift
MyArray(0, 1) = "P" 'Suchkriterium
Range("S11:S503").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range(MyArray), Unique:=False
End Sub
M.f.G.Berny