Ersetzen Sie Text, wenn ein Teil der Bedingung erfüllt ist

Question

Hey Ich habe ein Excel-Blatt, das einige VBA ausgeführt wird, um eine Zelle zu finden, die bestimmten Text enthält, und ersetzt dann mit neuem Text. Was ich will ist jederzeit in der Spalte das Programm sieht das Wort "In" es ersetzt den Zellenwert mit "Geplant zu arbeiten" das Problem Ich habe aber ist der ursprüngliche Zelle Wert ist nicht nur "In" es enthält auch eine Zeit das ist dynamisch. Gibt es eine Möglichkeit, die Zellen, die "If" und andere Zeiten enthalten, immer noch zu ersetzen? Ich habe den Code unten geschrieben, aber ich weiß nicht, wie man es zu Zellen ändert, die "In" sowie eine sich ändernde Zeit enthalten.

Danke!

Beispiel von dem, was ich will:

Aktuelle Zelle: "In - 12:30", "In - 11.45" usw. Zukunft Zelle: "Scheduled to work"

ws.Columns("D:D").Select 
Selection.replace What:="In", Replacement:="Scheduled to work", LookAt:=xlPart _ 
    , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=Falseenter code here 

Answer 1

Ich denke, was Sie fragen, ist das Ersetzen des Wortes und der Zeit für die Zeichenfolge "Geplant zu arbeiten"?

Wenn das der Fall ist, versuchen Sie einen Platzhalter auf Ihre Unter Hinzufügen wie so:

ws.Columns("D:D").Select 
Selection.replace What:="In*", Replacement:="Scheduled to work", LookAt:=xlPart _ 
    , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False