Krijg formule niet werkend in VBA

[Narrie82]

Goedenavond,

Ik heb in een sheet een vrij simpele formule staan; =C1/(A1/2,54) en ik deze nu geprobeerd in VBA te plaatsen;

Sub Insert_Formula()
Range("E1").Formula = "=C1/(A1/2,54)"
End Sub

Maar als ik de macro nu wil proberen krijg ik een error code met 400. Weet iemand misschien hoe dit kan en waar het aan ligt? Ik probeer het al een tijdje maar krijg het niet voor elkaar.

Alvast bedankt!

Bekijk bijlage Book2.xlsm

 

[edmoor]

VBA werkt alleen in het Engels.
Maak er 2.54 van.

 

[gast0660]

Hoi:

Sub Insert_Formula()
Range("E1").FormulaR1C1 = "=RC[-2]/(RC[-4]/2.54)"
End Sub

 

[OctaFish]

Of, als je het netjes wilt doen (getallen hard inprogrammeren moet je eigenlijk niet willen) dit:

    Range("E1").Formula = "=C1/(A1/" & Replace(WorksheetFunction.Convert(1, "in", "cm"), ",", ".") & ")"

 

[snb]

Het wordt pas echt chic met:

Sub M_snb()
   Cells(1, 5) = "=CONVERT(C1/A1,""in"",""cm"")"
End Sub

 

[Narrie82]

Dank jullie wel allemaal! Dit zijn allemaal perfecte oplossing waar ik verder mee kan en weer nieuwe optie in VBA heb geleerd