ich will von einem anderen Tabellenblatt, einen bestimmten Bereich z.B. A1:C20 in eine bestimmte Zelle (hier A1) als Kommentar reinschreiben...
hab auch schon mal was gefunden und was geändert, aber der Bereich bekomm ich nicht hin :-)
Sub MyComment()
Dim myCom As Comment
Dim myText As String
On Error Resume Next
myText = Worksheets("Tabelle2").Cells(1, 1) ' Hier soll der Bereich stehen
Cells(1, 1).Comment.Delete
Set myCom = Cells(1, 1).AddComment
With myCom
.Visible = False
.Text Text:=myText
.Shape.LockAspectRatio = msoFalse
.Shape.TextFrame.AutoSize = True
End With
End Sub
vielleicht weiß ja jemand ne Lösung :-)Danke
Timonski