VBA; 1 Spalte mit mehreren Kriterien, zweite Spalte Einzelkriterien

Question

Dies ist ein Update von einer vorherigen Frage, die ich hatte. Dieses Mal füge ich eine weitere Bedingung in einer bestimmten Spalte hinzu. So ersetzt dieser Code die Zelle/n basierend auf mehreren Kriterien in 2 separaten Spalten. Was mein Code tut, ist, dass er auf Col B nach ABC oder DEF sucht und wenn er XXX auf Col F zeigt, ersetzt er es durch YYY. Ich schrieb den Code unten, aber es tut nichts zum zweiten Kriterium (DEF)

Schätzen Sie Ihre Vorschläge im Voraus!

Dim destlist As Worksheet, y As Long 

fndList = Array("XXX") 
rplcList = Array("YYY") 

For Each sht In ActiveWorkbook.Worksheets 
sht.Cells.AutoFilter Field:=2, Criteria1:="ABC" 
sht.Cells.AutoFilter Field:=2, Criteria2:="DEF"  

'Loop through each item in Array lists and replace 
For y = LBound(fndList) To UBound(fndList) 
    sht.UsedRange.Columns("F").Replace What:=fndList(y), Replacement:=rplcList(y), _ 
     LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ 
     SearchFormat:=False, ReplaceFormat:=False 
Next y 
sht.AutoFilterMode = False 

Weiter sht

Answer 1

Sie die Eingabe nicht korrekt ein „entweder oder“ Kriterien, und als @ScottCraner sagte, Sie waren nicht auf den Ersatz für die sichtbaren Zellen zu begrenzen.

es auf diese Weise versuchen:

sht.UsedRange.AutoFilter Field:=2, Criteria1:="ABC", Operator:=xlOr, Criteria2:="DEF" 
sht.UsedRange.Columns("F").SpecialCells(xlCellTypeVisible).Replace ... 

P. S. ok Ich bemerke, dass Replace automatisch auf die sichtbaren Zellen funktioniert, aber es ist besser, explizite im Code zu sein.