Dubbel punt zetten na een woord

[andreavdg]

Nu mijn 2e vraag:

 

Kan iemand me ook helpen met een macro om een dubbel punt te zetten in kolom B na het vetgedrukte woord? (Interviewer, ...)

 

Veel dank bij voorbaat,

Andrea

 

[alpha]

Ervan uitgaand;

- dat het blad waarom het gaat "Blad1" heet;

- dat die vetgedrukte teksten in B2 beginnen;

- dat na de vetgedrukte tekst in elke cel van kolom B geen andere tekst meer komt (behalve dan de dubbele punt die wordt toegevoegd);

kun je dit gebruiken in een macro die in een module is geplaatst:

Sub Voeg_toe()
With Sheets("Blad1")
For x = 2 To .Range("b" & .Rows.Count).End(xlUp).Row
If Not IsEmpty(.Range("b" & x)) Then
With .Range("b" & x)
.Value = .Value & ":"
.Font.Bold = True
End With
End If
Next x
End With
End Sub

5 mei 2018 aangepast door alpha