Ändern Sie einen Zellenwert, wenn es einen Teil einer Zeichenfolge enthält

Question

Ich versuche, durch alle Zellen in Spalte "C" zu durchlaufen und den Wert zu Today() - 4 ändern, wenn die Zelle "Mon" enthält, da der Bericht auf a ausgeführt wird Freitag. Ich habe als nicht sicher Heute() in Zelle „K5“ setzen, wie es sonst für Ihre Hilfe in mein

For Each cell In Sheets("EMAIL DATA").Range("C:C") 
    If cell.Value = "*Mon*" Then 
    Set cell.Value = ("K5" - 4) 
    End If 
Next 

Dank einzuarbeiten.

Answer 1

den Code unten Versuchen Sie, mit DateAdd Funktion 4 Tage ab dem heutigen Datum subtrahieren (Date).

Hinweis: Es ist nicht notwendig, das heutige Datum in Zelle "K5" zu speichern, verwenden Sie einfach die Date Funktion.

For Each cell In Sheets("EMAIL DATA").Range("C:C") 
    If cell.Value Like "*Mon*" Then 
     cell.Value = DateAdd("d", Date, -4) 
    End If 
Next 

Answer 2

Referenz auf die Zelle K5 müssen Sie verwenden: Range("K5"). Oder Excel wird die "K5" als eine Zeichenfolge und einen Fehler ausgeben.

For Each cell In Sheets("EMAIL DATA").Range("C:C") 
    If cell.Value Like "*Mon*" Then 
    Set cell.Value = (Sheets("EMAIL DATA").Range("K5") - 4) 
    End If 
Next