ich hab in Spalte D lauter Einträge
Diese hätte ich gerne in Spalte E als Kommentar
wie mach ich das?
Sub neu()
Dim x As Integer
For x = 1 To Cells(Rows.Count, 4).End(xlUp).Row
If Cells(x, 4) "" Then
Worksheets(1).Cells(x, 5).ClearComments
Worksheets(1).Cells(x, 5).AddComment Cells(x, 4).Text
End If
Next
End Sub