Gruppe
Allgemein
Problem
Die Kommentare in Spalte C sollen gelöscht und als Texte in Spalte D übernommen werden.
StandardModule: Modul1
Sub SplitComments()
Dim cmt As Comment
Dim iRow As Integer
For iRow = 1 To WorksheetFunction.CountA(Columns(3))
Set cmt = Cells(iRow, 3).Comment
If Not cmt Is Nothing Then
Cells(iRow, 4) = Cells(iRow, 3).Comment.Text
Cells(iRow, 3).Comment.Delete
End If
Next iRow
End Sub
Sub a()
Range("A1").comm
End Sub