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

【问题标题】：Error 424 "Object Required" when trying to calculate the number of used rows尝试计算使用的行数时出现错误 424“需要对象”
【发布时间】：2014-02-28 02:24:41
【问题描述】：

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

这应该通过以下代码来完成，只要我按下“保存”按钮就会执行：

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”需要对象”。

我真的迷路了 - 有人知道我做错了什么吗？如果您需要了解更多信息，请告诉我，因为我真的很想看到这项工作。

【问题讨论】：

什么是Daten？从您的 sn-p 看来，它应该是一个 Worksheet 对象，但我在任何地方都看不到它是 Dimensioned。你试过Sheets("Sheet1_orSheetName").Cells...吗？
你在哪里初始化了你的Daten变量？
啊，是的，它是一个这样调用的工作表。
同意mehow和simoco。你真的需要totalRows = totalRows吗？ :) 将整个 if/Endif 更改为 If totalRows < 2 Then totalRows = 2 您可能还想查看 THIS
@Psyshadow：请将此作为答案发布（不是评论或编辑您的问题），然后接受您自己的答案。

标签： vba excel runtime-error userform

【解决方案1】：

这似乎可以解决问题（如 cmets 中所建议的）

Dim totalRows As Long

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

【讨论】：