Ik probeer een formule te kopieren vanuit een cel (A5) en te plakken in een aantal andere cellen (A5 t/m A42943).
Dit wil ik doen zonder de cellen te selecteren, omdat deze routine deel uitmaakt van een groter geheel met verschillende werkbladen en bestanden.
Echter loop ik tegen een foutmelding aan : Methode Range van object _Worksheet is mislukt.
Ik heb al een aantal aanpassingen geprobeerd, maar niets lijkt te helpen.
Hieronder heb ik een deel van de code geplakt. De variabele ws is een gedefinieerd werkblad.
Wie helpt?
Dit wil ik doen zonder de cellen te selecteren, omdat deze routine deel uitmaakt van een groter geheel met verschillende werkbladen en bestanden.
Echter loop ik tegen een foutmelding aan : Methode Range van object _Worksheet is mislukt.
Ik heb al een aantal aanpassingen geprobeerd, maar niets lijkt te helpen.
Hieronder heb ik een deel van de code geplakt. De variabele ws is een gedefinieerd werkblad.
Code:
With ws
.Columns(1).Insert Shift:=xlToRight
.Cells(4, 1).Value = "Sleutel"
.Cells(5, 1).FormulaR1C1 = _
"=IF(ISBLANK(RC[7])+ISBLANK(RC[8])+ISBLANK(RC[6])+ISBLANK(RC[8])=0,RC[7]&RC[8]&RC[6]&RC[1],""ZZ"")"
.Cells(5, 1).Copy
.Range(Cells(5, 1), Cells(42943, 1)).PasteSpecial xlPasteFormulas
End With
Wie helpt?