ich stehe (mal wieder) auf dem Schlauch. Ich möchte Text aus einer Zelle in einen Kommentar einfügen. Dazu habe ich mir folgenden Code, mit Beispielen aus dem Forum "gebastelt":
Sub Kommentar3()
Dim zellinhalt As String
Dim i As Long
For i = 6 To 44
zellinhalt = Range("YA" & i).Value
With Range("H" & i)
.Comment.Text Text:=zellinhalt 'objektvariable oder With-Blockvariable nicht festgelegt
.Comment.Shape.TextFrame.AutoSize = True
End With
Next i
End Sub
Bei ".comment.Text...." bleibt er stehen.Wer kann mir da helfen?
Besten Gruß
Thorsten