Kan formule niet doorgeven

[whiteboy]

Als ik een = voor links zet gaat het mis.
Ik zou graag de formule doorgeven naar een cel.
De fonction cijfers zit in een andere module.
Die is voor alfanumeriek te splitsen(komt via wigi)

Cells(WrRij, "E").FormulaR1C1 = "links(D" & WrRij & ";cijfers(D" & WrRij & "))"

Wat doe ik hier verkeerd?

 

[Wigi]

Zie http://www.helpmij.nl/forum/showthread.php?t=343323

 

[whiteboy]

Beste Wigi,

Bedankt! Maar het lukt met nog steeds niet.

Ik heb het op 2 manieren geprobeerd.

    Cells(WrRij, "E").FormulaR1C1 = "=left(C[4]R[" & WrRij & "];cijfers(C[4]R[" & WrRij & "]))"
Cells(WrRij, "E").FormulaR1C1 = "=left(R[" & WrRij & "]C[4];cijfers(R[" & WrRij & "]C[4]))"

Heeft het misschien met de fonction cijfers te maken.
Moet die buiten de " " staan?

 

[Wigi]

Sowieso geen ; maar , in de formules.

 

[whiteboy]

Beste Wigi,

Bedankt voor de tip.
Heb het kunnen oplossen.
Weet wel niet of het goed is, maar het werkt. Dat is voor mij het belangrijkste.

Worksheets("stoppersoverzicht").Cells(WrRij, "E") = "=left(R[0]C[-1],cijfers(R[0]C[-1]))"

 

[Wigi]

Het kan nog wat korter:

Sheets("stoppersoverzicht").Cells(WrRij, "E") = "=left(RC[-1],cijfers(RC[-1]))"

Wigi