Sub
FindReplace()
Sheets(
"LookUp"
).
Select
Range(
"B3"
).
Select
Application.CutCopyMode =
False
Selection.Copy Range(
"C3"
).
Select
Application.CutCopyMode =
False
Selection.Copy Sheets(
"Replacement"
).
Select
Cells.Replace What:=
"Forgot Password?"
, Replacement:=
"Passwort vergessen?"
_
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=
False
, SearchFormat:=
False
, _
ReplaceFormat:=
False
Sheets(
"LookUp"
).
Select
Range(
"B4"
).
Select
Application.CutCopyMode =
False
Selection.Copy Range(
"C4"
).
Select
Application.CutCopyMode =
False
Selection.Copy Sheets(
"Replacement"
).
Select
Cells.Replace What:=
"Remember Me"
, Replacement:=
"Merken"
_
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=
False
, SearchFormat:=
False
, ReplaceFormat:=
False
End
Sub