Ich möchte über das gesamte Tabellenblatt
den Kommentar aus einer Zelle in die Zelle daneben als Kommentar eintragen/übertragen.
Ich habe folgendes Makro erstellt und kommen auf einen Fehler => s. Anmerkung im Makro "Fehler beim .comment.Text"

Sub Kommentar_in_Zelle_daneben_einfügen()
Dim cell As Range
' Erste Spalte des ausgewählten Bereichs
For Each cell In Selection.Columns(1).Cells
With cell
' Wenn die Zelle nicht leer ist
If .Value > "" Then
' Zelle in der Spalte daneben
With .Offset(0, 1)
' Text einfügen => Fehler beim Kompilieren ".Text" Zuweisung nicht möglich
.Comment.Text = .Value & " - " & cell.Address & " - " & cell.Value
End With
End If
End With
Next cell

End Sub