vor einigen Tagen wurde mir mit folgendem Code geholfen:
Hallo,
Sub FormelInKommentare()
Dim c As Range
For Each c In Cells.SpecialCells(xlCellTypeFormulas)
If c.NoteText = "" Then
c.AddComment
c.Comment.Text Text:=c.FormulaLocal
c.Value = c.Value
Else
c.Comment.Text Text:=c.FormulaLocal
c.Value = c.Value
End If
Next
End Sub
funzt super. ABER: Jetzt habe ich bemerkt, daß nicht nur die Verweise auf andere Tebellen durch den Wert ersetzt werden sondern auch einfache Formel wie z. B. "A1+A2".
Kann man den Code so umändern:
Suche nach Formeln und verweisen
Schreibe diese in den Kommentar der Zelle (das ist obiger code)
Ersetze die Formel der Zelle nur dann durch den Wert, wenn sie sich nicht auf das sheet bezieht, auf dem sie steht.
Hat da jemand ne Idee?
Viele Grüße aus Hamburg, dichte Wolkendecke, gefühlte 2 Grad
ray