Hallo,
1. geht das nicht: .Range.Cells(1,1),Cells(1,3)
das muss so aussehen .Range(Cells(1, 1),Cells(1, 3))
2. wenn die Zellbereiche doch fest sind, warum gibst du sie dann nicht so in der Formel an? Du kannst nicht so mit Range und Cells rumspielen, wenn du eine Formel uebergeben willst. Ausserdem wuerde ich immer FormulaLocal verwenden, da du nie weisst, wo dieser Code sonst noch benutzt wird, wo vielleicht ein endlisches oder was auch immer Excel verwendet wird. So wird die Formal immer automatisch in der richtigen Sprachversion eingetragen.
ActiveCell.FormulaLocal = "=If(A1:C1=A10:C10,R1*R2/R3,""NO"")"
Gruss Torsten
|