Dim vntArray As Variant: vntArray = rngTable.Value
Dim vntInclude As Variant
Dim vntIfEmpty As Variant: vntIfEmpty = CVErr(xlErrNA)
Dim strFormula As String
Dim vntResult As Variant
strFormula = "(%ADDR1=""%VAL1"")*(%ADDR2=""%VAL2"")"
strFormula = Replace$(strFormula, "%ADDR1", rngTable.Columns(3).Address)
strFormula = Replace$(strFormula, "%VAL1", "Rot")
strFormula = Replace$(strFormula, "%ADDR2", rngTable.Columns(2).Address)
strFormula = Replace$(strFormula, "%VAL2", "A-Klasse")
Call MsgBox(strFormula, vbInformation, "Formel:")
vntInclude = rngTable.Worksheet.Evaluate(strFormula)
vntResult = WorksheetFunction.Filter(vntArray, vntInclude, vntIfEmpty)