Copying the value of Comment into a cell

kwilkies This VBA code will extract the comments into the cells containing the comment. It will replace any existing contents of the cells with the comment text, so be careful / save a back-up copy of your file before trying it.

Example file with steps to follow is attached.

Sub ExtractComments()

If Not TypeName(Selection) = "Range" Then Exit Sub

Dim rng As Range
Set rng = ActiveWindow.RangeSelection

On Error Resume Next
For Each c In rng.Cells
    c.Value = c.Comment.Text
Next

End Sub

kwilkies 

Sub commennt()

Dim i As Integer
 
For i = 1 To 10

Tabelle1.Cells(i, 2).Value = Tabelle1.Cells(i, 1).Comment.Text

Next i

End Sub

Maybe with this code if your comments are in cells A1:A10.