2 kolommen tekst samenvoegen naar lege kolom

[LaurensAcces]

Goedemiddag,
Ik heb in VBA de volgende code voor het samenvoegen 2 waarden (tekst)

ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-13], "" "",RC[-12])

Nu wil ik deze code graag toepassen op een hele kolom.

Wie kan mij hiermee op weg helpen.

Alvast bedankt,

Laurens

 

[spaarie]

Het is niet verstandig om formules te gaan invoegen terwijl je dit zonder formule kan opnemen in je macro

Sub Spaarie()
    '.sheets(1) de 1 kan je vervangen voor een tabblad naar bijv: .Sheets("Data")
    '.columns(1) de 1 hierin is de kolomnummer met je 1e waarde. In dit geval is kolom 1 > kolom A
    For Each c In Sheets(1).Columns(1).SpecialCells(2) '.Offset(1).SpecialCells(2) 'voor als je een kolomtitel gebruikt
        c.Offset(, 2).Value = c.Value & " " & c.Offset(, 1).Value
    Next
End Sub