Listobject filtern mit Kriterien Range
25.06.2014 15:49:58
Nette13
hoffentlich kann mir jemand von Euch helfen. Ich habe eine Datei mit den Blättern "On-Hand" und "Abfrage". In On-Hand befinden sich alle relevanten Daten als Listobject("Mygrid"). In Abfrage in D1:D5 stehen Kriterien (D1: Location, D2: AB1, D3: AB2, D4: KB3, D5: AS2). On-Hand hat ebenfalls eine Spalte mit der Beschriftung "Location". Ich möchte nun die On-Hand Tabelle nach den Kriterien in D1:D5 filtern. Ich muss aber eine Kriterien Range verwenden, da die Kriterien auch mal 30 verschiedene Merkmale sein können, statt wie hier 4 verschiedene Merkmale.
Sub Lagerorte_filtern()
crit = Sheets("Abfrage").Range("D1:D5")
objList = Sheets("on-hand").ListObjects("mygrid")
With objList
.Range.AdvancedFilter Action:=xlFilterInPlace, _
criteriarange:=Sheets("on-hand").Range(crit), unique:=False
End With
End Sub
Kann mir jemand von Euch helfen?
Ich sehe meinen Fehler einfach nicht...
Lieben Dank vorab
Nette