Как я могу заполнить столбец с формулами из диапазона

Question

With tblStueckpreis
    .ListColumns.Add position:=Application.Match(TABLEHEADERNAME, .HeaderRowRange, 0)
    ' Fügt die Formeln in die neue Staffel ein
    If WorksheetFunction.CountIf(tblStueckpreis.Range.Rows(1), "*Staffel*") <> 0 Then
        countHeader = Application.Match(TABLEHEADERNAME, .HeaderRowRange, 0) - 1
        For i = 1 To staffelRange.Rows.Count
            .DataBodyRange.Cells(i, countHeader) = staffelRange.Cells(i)
        Next
    End If
End With

Я пытаюсь скопировать формулы из моего диапазона "staffelRange" и вставить их в мою таблицу. К сожалению, я получаю только значения, а не формулы с моим кодом. Pastespecial выдает мне ошибку, с Pastespecial я скопировал диапазон и попробовал его с pastspecial. К сожалению, без успеха. Может ли кто-нибудь помочь мне?

Answer 1

For i = 1 To staffelRange.Rows.Count
      .DataBodyRange.Cells(i, countHeader).Formula =staffelRange.Cells(i).Formula
Next