将宏分配给命令按钮失败

Question

我编写了一个宏，当在Developer中运行该宏时，它可以正常运行约1,000行，但是当我将其链接到命令按钮并通过按按钮启动它时，它仅执行一行。

有人知道这里出了什么问题以及如何解决此问题吗？ 谢谢 ：）

Sub AutomaticallyCalculateted()

Dim lastrow As Long

lastrow = Range("A" & Rows.Count).End(xlUp).Offset(8).Row


Tabelle3.Range("O9:O" & lastrow).FormulaLocal = "=WENN(ODER(K9="""";L9="""");"""";WENNFEHLER((L9-K9)/K9;""""))"


Tabelle3.Range("P9:P" & lastrow).FormulaLocal = "=WENN(ODER(L9="""";M9="""");"""";WENNFEHLER((M9-L9)/L9;""""))"


Tabelle3.Range("Q9:Q" & lastrow).FormulaLocal = "=WENN(ODER(M9="""";N9="""");"""";WENNFEHLER((N9-M9)/M9;""""))"

End Sub

Answer 1

您的lastRow是在ActiveSheet上定义的，但是您的公式正在进入Tabelle3