vervang inhoud van een cel door de inhoud van een andere cel

[gershi]

Hallo,

Heb een script waarvan een gedeelte:

For Each rB In Range("I2:I" & lLRij).SpecialCells(xlCellTypeVisible)
sNaam = rB.Offset(0, 1).Value
sAdres = rB.Value
If Evaluate("SumProduct(((" & rAdres.Address & ") = """ & rB.Value & _
""") * " & "((" & rNaam.Address & ") = """ & rB.Offset(0, 1).Value & """) )") > 1 Then
rB.Offset(0, -1).Value = "familie": rB.Offset(0, -2).Value = "Fam."
End If
Next

hier wordt van een gevonden row de inhoud van een cel gevuld met :familie en een ander met Fam.
nu wil ik in dezelfde opdracht de inhoud van de cel welke 6 posities terug staat, gevuld wordt met de inhoud van cel van 3 posities terug.
ofwel inhoud veld "J" komt in kolom "C" (overschrijven)
Hoe gaat dat eruit zien?

 

[Warme bakkertje]

If Evaluate("SumProduct(((" & rAdres.Address & ") = """ & rB.Value & _
""") * " & "((" & rNaam.Address & ") = """ & rB.Offset(0, 1).Value & """) )") > 1 Then
rB.Offset(0, -1).Value = "familie": rB.Offset(0, -2).Value = "Fam.": rB.Offset(, -6).Value = sNaam
End If