VBA samenvoegen tekst

[jansm]

Beste mensen,
ik wil van een tabel (wisselend aantal regels) de tekst in kolom E en G samenvoegen in kolom AA. Wat is er fout aan de code?

Sub NaamVoornamen()
Dim lr As Integer
lr = Range("A1").CurrentRegion.Rows.Count
Range("AA2").Formula = "=[E2]&[G2]"
Range("AA2:AA" & lr).FillDown
End Sub

 

[mvw64]

Probeer het zo eens

Range("AA2:AA" & Range("E2").End(xlDown).Row).FormulaR1C1 = "=RC[-22] & RC[-20]"

 

[sylvester-ponte]

Jan, haal die haken om die E2 en die G2 eens weg

 

[jansm]

Dank mvw

Syl, ik heb meerdere opties geprobeerd (uiteraard met mijn simpele kennis) waaronder jou voorstel. Dan loopt de macro loopt niet vast, alleen lr neemt de juiste waarde aan maar de samenvoeging vind niet plaats.

Hoe kan ik nu een spatie toevoegen? Met

RC[-40] & [" "] & RC[-38]

loopt ie wel vast

 

[Haije]

haal de haken weg rond " "

 

[jansm]

Range("AA2:AA" & Range("E2").End(xlDown).Row).FormulaR1C1 = "=RC[-22] & " " & RC[-20]"

...dan syntaxisfout

 

[sylvester-ponte]

met haken weg halen bedoel ik:

vervang in jouw macro :
Range("AA2").Formula = "=[E2]&[G2]"
door
Range("AA2").Formula = "=E2&G2"

 

[Cobbe]

Je moet integendeel haakjes (") bijzetten om het werkbaar in VBA te maken:

Range("AA2:AA" & Range("E2").End(xlDown).Row).FormulaR1C1 = "=RC[-22] & "[COLOR="#FF0000"]" "[/COLOR]" & RC[-20]"

 

[jansm]

Aan allen, bedankt. Alle aangedragen opties werken.
Tot een volgende keer!!!