Filterkriterien basierend auf Zellwert

Question

Ich möchte einen Bereich filtern basierend auf einem Zellenwert:

Es funktioniert:

ThisWorkbook.Worksheets("Cost Table").Range("$A$38:$O$68").AutoFilter Field:=2, Criteria1:=Array("LATAM", "NOAM"), Operator:=xlFilterValues 

funktioniert nicht:

ThisWorkbook.Worksheets("Cost Table").Range("$A$38:$O$68").AutoFilter Field:=2, Criteria1:=ThisWorkbook.Worksheets("Cost Table").Range("Q100").Value, Operator:=xlFilterValues 

Q100 = "LATAM", "NOAM" 

Was ist der gewünschte Eingabe für Kriterien?

Answer 1

Sie müssen ein Array erstellen, wenn Sie mehr als einen Wert anwenden möchten.

dim crit() as string 
crit = split(ThisWorkbook.Worksheets("Cost Table").Range("Q100").Value, ",") 
ThisWorkbook.Worksheets("Cost Table").Range("$A$38:$O$68").AutoFilter Field:=2 Criteria1:=crit, Operator:=xlFilterValues 

N.B. Wenn Ihr Handy Q100 Anführungszeichen enthält, müssen Sie es loswerden:

crit = split(replace(ThisWorkbook.Worksheets("Cost Table").Range("Q100").Value, """",""), ",") 

Answer 2

Sie LATAM in Q100 setzen können NOAM in Q101 sind (beide ohne Anführungszeichen) und Criteria1:=ThisWorkbook.Worksheets("Cost Table").Range("Q100:Q101").Value als Kriterien verwenden.