Sub kom()
Dim zelle As Range
On Error Resume Next
For Each zelle In Sheets(1).UsedRange
zelle.Offset(0, 1).Value = zelle.Comment.Text 'Kommentar in Zelle rechts daneben
'zelle.Offset(0, 0).Value = zelle.Comment.Text ' Kommentar in gleiche Zelle
zelle.ClearComments 'Kommentar wird gelöscht
Next
End Sub