Addcomment aus zelle
Thomas
Ich brauch mal wieder eure hilfe, denn ich komme mit meinem bescheidenen wissen nicht mehr weiter.
Folgender Code bricht immer gleich in der ersten Zeile ab und ich verstehe nicht ganz warum.
For x = 2 To 560
Sheets("Berechnung").Cells(x, 29).ClearComments
Sheets("Berechnung").Cells(x, 29).AddComment.Text Text:=Sheets("Berechnung").Cells(x, 28)
Sheets("Berechnung").Cells(x, 29).Comment.Shape.TextFrame.AutoSize = True
Next x
Danke für eure Hilfe.
Thomas H.