kolommen samenvoegen met behoud van opmaak

[astra]

Hallo,

Ik heb 2 kolommen met tekst die ik wil samenvoegen in kolom C1 met de formule =TEXT.SAMENVOEGEN(A1;B1)
In kolom A1 heb ik een tekst in het vet, in kolom B1 gewone tekst zonder opmaak.
Is het mogelijk om de opmaak van A1 te behouden en samen te voegen met B1 (tekst zonder opmaak)?
Zo ja, kan iemand me hiermee helpen hoe ik dat moet doen?

Met dank bij voorbaat
Astra

 

[JanBG]

Kolom C selecteren en Vet maken

 

[HSV]

Dat kan alleen met Vba, en alleen met cellen waar geen formules in staan.

Je kan kolom C verbergen.

Sub hsv()
Dim cl As Range
For Each cl In Columns(3).SpecialCells(-4123) 'alleen formules
  cl.Offset(, 1) = cl.Value
  cl.Offset(, 1).Characters(1, Len(cl.Offset(, -2))).Font.FontStyle = "bold"
 Next cl
End Sub

Of handmatig natuurlijk...

 

[astra]

Bedankt HSV,
Er staan geen formules in de cellen, enkel maar tekst.
Toch krijg ik een foutmelding op
or Each cl In Columns(3).SpecialCells(-4123) 'alleen formules

Foutmelding:

fout 1004 tijdens uitvoering:
Er zijn geen cellen gevonden.

Groetjes,
Astra

 

[HSV]

Ik dacht dat er in kolom C de formule 'tekst.samenvoegen stond.

Dan zo.

Sub hsv_2()
Dim cl As Range
   For Each cl In Columns(1).SpecialCells(2)
    cl.Offset(, 2).Font.Bold = False
    cl.Offset(, 2) = cl.Value & cl.Offset(, 1).Value
    cl.Offset(, 2).Characters(1, Len(cl.Value)).Font.FontStyle = "bold"
   Next cl
End Sub

 

[astra]

Beste HSV,

Ik had de formule verwijderd omdat ik dacht dat de macro zonder die formule moest uitgevoerd worden.
Nu de formule =tekst.samenvoegen (A1;B1) terug in kolom C gezet, dan de macro (de eerste die je doorstuurde) laten draaien en dan doet ie het wel!
Sorry hoor, had het verkeerd begrepen.

Ik heb nu ook de tweede macro eens uitgetest en die doet het ook fantastisch!

Heel hartelijk bedankt voor je vlugge hulp.
Ik waardeer dit ten zeerste.:thumb:

Groetjes,
Astra