将Useform中的TextBox中的值添加到预定义表中

Question

以下代码在用户窗体中，当我单击按钮时会被调用。 我想将用户窗体中的7个文本框中的文本提交到工作表中的预定义表格中（表中还有7列）。该表名为“ Tabell1”。 “ Ny_____Input”是文本框的名称。

我收到一个错误代码Run-time error 91。

Private Sub LeggTilKontakt1()


Dim Tbl As ListObject

Set Tbl = ActiveSheet.ListObjects("Tabell1")

With Tbl
    .DataBodyRange(2, 1).Value = Me.NyNavnInput.Text
    .DataBodyRange(2, 2).Value = Me.NyFirmaInput.Text
    .DataBodyRange(2, 3).Value = Me.NyTelefonInput.Text
    .DataBodyRange(2, 4).Value = Me.NyEpostInput.Text
    .DataBodyRange(2, 5).Value = Me.NyRolle1Input.Value
    .DataBodyRange(2, 6).Value = Me.NyRolle2Input.Value
    .DataBodyRange(2, 7).Value = Me.NyRolle3Input.Value
End With

End Sub

Answer 1

正在添加     health = 0并将.ListRows.Add (1)更改为.DataBodyRange(2, x) 解决了这个问题。谢谢！