opmaak cel bij de functie tekst samevoegen

[moensk]

in kolom A voegt hij cellen bij elkaar afhankelijk of er een "X" staat in de rij
om het overzichtelijk te houden in kolom A wou ik de eerste letter van elk woord in het rood hebben, zoals ze ook staan in rij 1
kan dit ?

 

[oeldere]

Waarvoor ga je kolom A gebruiken?

Je zou eventueel een spatie tussen de woorden kunnen invoegen.

Op je vraag om de eerse letter te kleuren, heb ik geen antwoord.

 

[HSV]

Geen formules meer in kolom A.
Laat de voorwerpen in B1:I1 beginnen met een hoofdletter.
Draai dan eens onderstaande code.

Sub hsv()
Dim i As Long, n As Long, kleur As String
With Sheets("Individueel")
 For i = 2 To .UsedRange.Rows.Count
      .Cells(i, 2).Resize(, 8).Name = "hsv_1"
      .Cells(i, 1) = Join(Filter([if(hsv_1="x",b1:I1,"~")], "~", False), "")
      .Cells(i, 1).Font.ColorIndex = 0
For n = 1 To Len(Cells(i, 1))
          kleur = Cells(i, 1).Characters(n, 1).Text
        If kleur = UCase(kleur) Then
           .Cells(i, 1).Characters(n, 1).Font.ColorIndex = 3
        End If
     Next n
   Next i
  End With
 Application.Names.Item(1).Delete
End Sub