habe folgendes Makro um den Zellinhalt als Kommentar zur Zelle einzutragen. (um z.B. Formeln vor Umwandlung in Zahlen zu sichern). Leider geht das nur, wenn kein Berechnungsfehler (also als Ergbnis #NV) auftritt, dann bleibt das Kommentarfeld leer. Ich möchte aber trotzdem die Formel im Kommentar stehen haben. Schaff das aber nicht.
Und schön wärs, wenn ich mehrere Zellen markieren könnte u in die Kommentare dazu aus den selektierten Zellen in Kommentaren geschrieben würden.
Bitte um eure Mithilfe.
Hier das Makro:
Sub kommentar()
' Textinhalt als Kommentar einblenden
Dim inhalt As String
On Error Resume Next
Selection.AddComment
inhalt = Selection.Value
inhalt = Selection.Comment.Text & Chr(10) & Selection.Value
Selection.Comment.Text Text:="Ich:" & inhalt
End Sub
Danke schon jetzt im voraus
LG Rob