= formule vervangen door vba,macro

[avesoft]

heren forumleden

als ik bv op A1 een waarde invul dan zou ik die waarde ook op bv A33 willen laten verschijnen
in cel A33 "=A1" zetten werkt voor mij niet cel A33 mag geen formule in staan
ik zou dit op een range willen toepassen

zou iemand mij willen helpen

gr arie

 

[HSV]

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Then Range("A33") = Cells(1)
End Sub

 

[avesoft]

Harry

dank je voor snelle reactie , werk id goed

ik dit even uitzoeken , mijn excel geeft problemen zodra ik de macro toe wil passen

gr arie

 

[avesoft]

harry

dank je

excel had problemen .werkt perfect

gr arie