Hinzufügen eines Kommentars zu einem Excel mit VBA

Question

Ich habe echte Schwierigkeiten, einen Kommentar zu einer Zelle hinzuzufügen.

Ich rufe die folgenden Unter

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 

Aber ich immer einen 1004-Fehler erhalten, sagen „Anwendung oder Objektfehler“ (das übersetzt wird, ursprüngliche Nachricht: „Anwendungs- oder objektdefinierter Fehler“)

Die Unter heißt

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

mit Was mache ich falsch?

Beste

Answer 1

Code sollte funktionieren, wenn die Zielzelle keinen Kommentar enthält. Sie können den Vorgang ändern bestehende Kommentare löschen zuerst:

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