Run Time Error 1004
 

Can anyone tell my what's wrong with the following:

lRaekke = ActiveCell.Row
dVSLoen = Cells(lRaekke, 9).Value
Debug.Print lRaekke, dVSLoen
sTimeAdresse = Cells(lRaekke, 7).Address
sEgenLoenAdresse = "Tilbudsoplysninger!" + Worksheets
("TilbudsOplysninger").Range("EgenLoen").Addres s
'=+Hvis(EgenLoen0;+Timer*EgenLoen;V&S løn)
sFormel = "=+Hvis(EgenLoen0;" + "+" + sTimeAdresse + "*"
+ "EgenLoen;" + "+" + CStr(dVSLoen) + ")"
Debug.Print sFormel '=+Hvis(EgenLoen0;+$G$34*EgenLoen;+0)

ActiveSheet.Cells(lRaekke, 9).Formula = sFormel

It keeps failing at the last line: RT error 1004:
Programdifined or Objectdifined Error

Thanks
Lars Kofod

Run Time Error 1004
 

I don't speak this language, but when I have trouble fixing a formula that is
being populated by VBA, I do this:

sFormel = "'=....."

Then when I put it into the cell, it's just text. I go back to the worksheet
and remove that leading quote and see what excel yells about.

Also, I think I'd use & (ampersand) instead of + (Plus) to concatenate strings
when you're building the formula.

Lars Kofod wrote:

Can anyone tell my what's wrong with the following:

lRaekke = ActiveCell.Row
dVSLoen = Cells(lRaekke, 9).Value
Debug.Print lRaekke, dVSLoen
sTimeAdresse = Cells(lRaekke, 7).Address
sEgenLoenAdresse = "Tilbudsoplysninger!" + Worksheets
("TilbudsOplysninger").Range("EgenLoen").Addres s
'=+Hvis(EgenLoen0;+Timer*EgenLoen;V&S løn)
sFormel = "=+Hvis(EgenLoen0;" + "+" + sTimeAdresse + "*"
+ "EgenLoen;" + "+" + CStr(dVSLoen) + ")"
Debug.Print sFormel '=+Hvis(EgenLoen0;+$G$34*EgenLoen;+0)

ActiveSheet.Cells(lRaekke, 9).Formula = sFormel

It keeps failing at the last line: RT error 1004:
Programdifined or Objectdifined Error

Thanks
Lars Kofod

--

Dave Peterson