Ga naar inhoud

Dubbel punt zetten na een woord


andreavdg
 Delen

Aanbevolen berichten


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
aangepast door alpha
Link naar reactie
Delen op andere sites

 Delen

×
×
  • Nieuwe aanmaken...