Cell A equal to Cell B Reference?

[Nicobisgaard60]

I'm sure i have done this before but i have forgot the Syntax.

I Want Cell A1 to be equal to the content of Cell B1. Not just the current "Value" but an actual reference.

Range("A1").Value="=B1"

I need to use it in a loop so the syntax has to be somewhat more clever than the above

Currently the macro reads:

For i = 1 To 7
Cells(27, i + 58).Value = Cells(2, i * 2 + 58).Value
Next i

But instead of 58).Value i want the cell reference.

Any help appreciated.

 

[Kaper]

How about:

For i = 1 To 7
    Cells(27, i + 58).formula = Cells(2, i * 2 + 58).formula
Next i

If there is value (Like "Kaper" or 1000000) in a source cell, value will be copied, but if there is a formula (=B1) , it wil be copied as formula (=B1)

 

[JackDanIce]

Do you mean the cell address?
Try:

For i = 1 to 7
  Cells(27, i + 58).Formula = "=" & cells(2, i * 2 + 58).Address
Next i

 

[Nicobisgaard60]

Do you mean the cell address?
Try:

For i = 1 to 7
  Cells(27, i + 58).Formula = "=" & cells(2, i * 2 + 58).Address
Next i

Ofcourse. Formula -> Address is the right way to go.