Vba代码R1C1与Isoweek组合

Question

我确实将VBA代码R1C1与Isoweek公式结合使用时遇到了麻烦

=HVIS(ER.TOM(RC[-13]);"-";ISOUGE.NR(RC[-13]))上的代码可以正常工作，我将其手动放置在单元格中，但是如果将其与VBA一起放置，则无法正常工作

谁能告诉我我做错了吗？

我的VBA代码如下：

Cells(i, 22).Select

ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[-13]),""-"",ISOUGE.NR(RC[-13]))"

In Danish: =HVIS(ER.TOM(RC[-13]);"-";ISOUGE.NR(RC[-13]))

If the cell is empty it gives me - as expected, but it a date it give me #Name?

最好的问候 产生