Find and replace formulas with vba

[nlundbyek]

I am trying to use find and replace to replace one formula with another. When I use my code with words in the string it works:

Sub new()


Cells.Replace What:="Hej", _
Replacement:="Farvel", LookAt:=xlWhole, SearchOrder:= _
xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


End Sub

But when I use it with formulas in the string it won't work:

Sub new()


Cells.Replace What:="=LOPSLAG(C$4;'Kalender skjult'!$A$1:$H$5000;7;FALSK)", _
Replacement:="=HVIS($C$18>0;1;0)", LookAt:=xlWhole, SearchOrder:= _
xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


End Sub

It's in Danish. Hope someone can tell me why it won't work with formulas

 

[jorismoerings]

Hi and welcome to MrExcel,

take a look at this: https://www.mrexcel.com/forum/excel-questions/928437-replace-text-formula-vba.html

 

[nlundbyek]

Just tried but unfortunately it's not the problem I have.

Thanks for the help

 

[Fluff]

In what way doesn't it work?

 

[Peter_SSs]

Not a strong area of mine & unable to test, but could the problem be that vba wants comma separators not the regional separator in the formulas in one or both places?

 

[jorismoerings]

@Peter_SSs,

yep, that could be true.
I've taken a quick look through my VBA files and if i insert formulas in VBA, i'm using commas instead semicolon regardsless of my listseperator usual is a semicolon and subsequently I'm using RC style instead of "A1" to create the formula.

 

[Peter_SSs]

yep, that could be true.
I've taken a quick look through my VBA files and if i insert formulas in VBA, i'm using commas instead semicolon regardsless of my listseperator usual is a semicolon and subsequently I'm using RC style instead of "A1" to create the formula.

So do you know if the OP should try swapping semicolon for comma in both
What:="=LOPSLAG(C$4;'Kalender skjult'!$A$1:$H$5000;7;FALSK)"
Replacement:="=HVIS($C$18>0;1;0)"
or just the Replacement?

 

[jorismoerings]

@Peter_SSs,

The OP should change the semicolon in FIND and REPLACE. RC style is not mandatory so could both be used.
Next to that, The OP needs to change the name of the VBA from New() to something else meaningful because New is a restricted word with specific usage within VBA.

 

[Fluff]

Another point, is that if the formula has been dragged to the right this part =LOPSLAG(C$4 will change to =LOPSLAG(D$4 etc. So only one cell will be replaced.

 

[nlundbyek]

Nothing at all happens :/