使用VBA添加注释到excel

给单元格添加评论真的很困难。

我打电话给下面的子

Sub ValidationError(row As Long, column As Integer, ErrorLine As String) Tabelle1.Cells(row, column).Interior.Color = vbYellow Tabelle1.Cells(row, column).AddComment ErrorLine End Sub 

但是我总是得到一个1004错误，说“应用程序或对象错误”（这是翻译，原始信息：“Anwendungs-oder objektdefinierter Fehler”）

该子被称为使用

 Call ValidationError(8, 9, "Text string") 

我究竟做错了什么？

最好

Answer 1

如果目标单元格不包含评论，您的代码应该可以工作。 您可以更改程序以先清除现有注释：

 Sub ValidationError(row As Long, column As Integer, ErrorLine As String) Tabelle1.Cells(row, column).Interior.Color = vbYellow Tabelle1.Cells(row, column).ClearComments Tabelle1.Cells(row, column).AddComment ErrorLine End Sub