Dodawanie komentarza do programu Excel za pomocą VBA

Question

Mam naprawdę problemy z dodaniem komentarza do komórki.

Dzwonię następujących sub

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 

Ale zawsze pojawia się błąd 1004, mówiąc: "Aplikacja lub błąd obiekt" (to jest tłumaczone, oryginalny komunikat: "Anwendungs- oder objektdefinierter Fehler")

sub nazywa użyciu

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

Co robię źle?

Najlepszy

Answer 1

Twój kod powinien działać, jeśli komórka docelowa nie zawiera komentarz. można zmienić procedurę, aby usunąć istniejące pierwsze komentarze:

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