Der Code:
With ActiveCell
.ClearComments
.AddComment
.Comment.Visible = True
.Comment.Text Text:=txtText
.Comment.Shape.Select True
End With
der Fehler kommt in der Codezeile
.Comment.Text Text:=txtText
Was mache ich falsch?
Gruß Werner.
With ActiveCell
.ClearComments
.AddComment
.Comment.Visible = True
.Comment.Text Text:=txtText
.Comment.Shape.Select True
End With
der Fehler kommt in der Codezeile
.Comment.Text Text:=txtText