尝试计算已使用的行数时出现错误424“对象必需”

Question

我正在尝试计算Excel 2013中VBA项目中使用的行数，以便我可以用userform填充它（每次按下“保存”按钮，它会在工作表中添加一个新行）。工作表也有两个标题行，所以我不希望它们被覆盖。

这应该通过以下代码来完成：按下“保存”按钮后立即执行：

Private Sub Save_Click()

Dim totalRows As Long

totalRows = Daten.Cells(Rows.Count, "A").End(xlUp).Row
If totalRows < 2 Then
totalRows = 2
Else
totalRows = totalRows
End If

...

End Sub

然而，当我按下“保存”按钮时，我得到错误“424”对象必需“。

我真的迷失在这里 - 谁知道我做错了什么？如果您需要了解更多信息，请告诉我，因为我真的希望看到这项工作。

Answer 1

这似乎可以解决问题（如评论中所述）

Dim totalRows As Long

totalRows = Sheets("Daten").Cells(Rows.Count, "A").End(xlUp).Row
If totalRows < 2 Then
totalRows = 2
End If