Cellen op nulzetten en oude formule terugzetten

[arvie76]

Hallo,

Ik ben bezig met een reset knop te maken in een excel bestand. Bepaalde cellen moeten blanco gemaakt worden, dit lukt me ook zonder problemen. Echter in bepaalde cellen moet na resetten weer een verwijding komen naar een andere cel.

Op dit moment heb ik dit :

Sub inzetblancox()

Range("L5").Select
ActiveCell.FormulaR1C1 = "=J5"
Range("L6").Select
Selection.ClearContents

End Sub

De cel L6 wordt keurig blanco gemaakt maar in de cel L5 moet dus de verwijzing terugkomen naar J5. Dacht dus als ik een verwijzing standaard in een cel vermeld is dat =J5, maar dat werkt dus niet in VBA. Krijg dan melding #Naam? wat ook logisch is want in de formule balk wordt ='J5' weergegeven.

Hoe kan ik dit oplossen?

 

[gast0660]

Zo?

Sub inzetblancox()
    Range("L5").FormulaR1C1 = "=RC[-2]"
    Range("L6").ClearContents
End Sub

Vermijd het gebruik van select, is zelden nodig en het vertraagt je code.

 

[arvie76]

ThanX

Dank gast0660

Ik had al zo iets gevonden zelf maar werkte toen niet. Denk dat ik mogelijk toen verkeerde haakjes gebruikt heb.

Ook jouw tip m.b.t. Select zal ik zeker vaker gebruiken.

 

[VenA]

De FormulaR1C1 is vaak lastig te lezen.

Het kan ook zo

Sub inzetblancox()
  Range("L5").Formula = "=J5"
  Range("L6").ClearContents
End Sub

Zo mag ook in veel gevallen

Sub inzetblancox()
  Range("L5") = "=J5"
  Range("L6").ClearContents
End Sub

 

[arvie76]

Dank VenA

VenA Jij ook dank voor je reactie !!!