Mit untenstehendem Code generiere ich Zellen Kommentare. Leider ist Kommentarfeld zu klein. Lässt sich das Feld vergrössern? Wenn ja, kann mir jemand beim Code helfen, ggf. gleich in untenstehendem Code integriert.
Liebe Gruess
Richi
Sub Copy_Comment()
Dim rng As Range
For Each rng In ThisWorkbook.Worksheets("Kopiert").Range("B6:RB69").SpecialCells( _
xlCellTypeConstants)
If rng "" Then
With Worksheets("Single Line View").Range(rng.Offset(0, 0).Address)
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=CStr(rng)
End With
End If
Next rng
End Sub