return a formula as text in another cell

[shodan]

Hi board,

I a cell I have entered a formula. now I would like to see this formula again as text in another cell. in fact, I would lilke to retrieve the filename this formula is using.

Any ideas for me?

Thanks,
shodan

 

[Sektor]

UDF

[COLOR="Blue"]Function[/COLOR] FormulaAsText(rng [COLOR="Blue"]As[/COLOR] Range) [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]String[/COLOR]
    FormulaAsText = rng.Formula
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Function[/COLOR]

 

[jim may]

Paste this UDF into a standard module:

Public Function FormulaText(rng As Range) As String
FormulaText = rng.Formula
End Function

Excel Workbook
	A	B
1	1,701.00	<< The Sum formula using Cells C1:C5
2	=SUM(C1:C5)	<< The actual formula that is in Cell A1
Sheet1

Excel 2007

Cell Formulas
Range	Formula
A1	=SUM(C1:C5)
A2	=formulatext(A1)

 

[shodan]

thanks guys,

This is indeed what I saw a few times on the net, so I suppose there is not standard funtion to do this.

Let's try this one!
regards
shodan