使用VBA在单元格中插入公式

Question

I have a function that should fill 8 rows with a formula

Sub df_opbouwen()

  num_weeks = 8 + 10

  For i = 10 To num_weeks

     Sheets("Blad1").Cells(i, 2).Formula = "=WEEKNUMMER(D10)"

  Next i

End Sub

However, when I open the Excel, I still get a #name? error. That's strange because when I just enter =WEEKNUMMER(D10) in the cell it does work.

Any thoughts on what goes wrong here?

Answer 1

you have a small type error:

Sub df_opbouwen()

num_weeks = 8 + 10

For i = 10 To num_weeks
    Sheets("Blad1").Cells(i, 2).Formula = "=WEEKNUM(D10)"
Next i

End Sub