in A1 steht ein Wert mit einem Kommentar
in B1 Formel =A1
Wie erreiche ich dass der kommentar von A1 nach B1 auch verknüpft wird?
LG Tine
Sub CommentText()
Dim myRange As Range, Zelle
On Error GoTo errExit
'Tabellenname und Bereich anpassen
Set myRange = Sheets("Tabelle1").Range("A1:B10").SpecialCells(xlCellTypeFormulas)
For Each Zelle In myRange
If Not Zelle.Comment Is Nothing Then Zelle.ClearComments
With Zelle.AddComment
.Visible = False
.Text Zelle.Precedents.Comment.Text
End With
Next
errExit:
End Sub
Grüße