Rechter letters als hoofdletters in VBA

[Demeter]

Hallo,

Iemand die mij kan uitleggen hoe ik van deze excel code een VBA code kan maken?

=TEKST.SAMENVOEGEN(LINKS(D2,4),HOOFDLETTERS(RECHTS(D2,2)))

Range is D280

Kom er niet geheel zonder kleerscheuren uit..........


Thanks,
Ferenc

 

[jpvs]

Met de macro recorder krijg ik dit :

ActiveCell.FormulaR1C1 = "=CONCATENATE(LEFT(R[-4]C[-2]),UPPER(RIGHT(R[-4]C[-2],2)))"


Pierre

 

[Roncancio]

Met onderstaande code wordt het gehele bereik (D280) gedaan.
Het resultaat wordt in de E-kolom geplaatst.

For Rij = 2 to 80
     Cells(Rij,"E")=left(cells(Rij,"D"),4)&ucase(right(cells(Rij,"D"),2)
Next

Met vriendelijke groet,


Roncancio

 

[Demeter]

Heren,

Had het zelf ook geprobeerd met de macrorecorder. Dit had weinig zin aangezien ik deze code weer verander om deze binnen mijn al bestaande code te plaatsen.
Met de regels van Roncancio ben ik eruit gekomen.

Dank jullie wel voor de reactie. :thumb:

Groet,
Ferenc