Hallo zusammen,

ich habe im Forum folgenden Code gefunden, um in einer Zelle einen Kommentar zu erzeugen und den Zellinhalt hinein zu kopieren, sofern in der Zelle etwas steht:

Public Sub kommentar_aus_zelle_einfuegen()
'** Dimensionierung der Variablen
Dim kom As Comment
Dim zelle_inhalt As Object

'** Errorhandling deaktivieren
On Error Resume Next

'** Alle markierten Zellen durchlaufen
Worksheets("schlussgerechnete Projekte").Range("U6:U1321").Select

For Each zelle_inhalt In Selection
If zelle_inhalt.Value > "" Then
Set kom = zelle_inhalt.AddComment
kom.Text Date & Chr(10) & zelle_inhalt.Text
End If
Next zelle_inhalt

End Sub

Allerdings bekomme ich damit immer nur das Ergebnis der Zelle eingetragen, nicht den Inhalt, egal wie sehr ich mit .value oder .text experimentiere.
Steht in der Zelle "=1+2+3+4" möchte ich in dem Kommentar "1+2+3+4" stehen haben, nicht "10".

Im Forum habe ich keine Lösung dazu gefunden. Kann mir da jemand weiter helfen?
Gerne auch mit einem komplett neuen Code, wenn das einfacher ist.

Vielen Dank schon einmal im Voraus.
Heiko