Verschillende opmaken in 1 cel

[Stone52]

Cobbe,



Wel even bij de les blijven ;-))

 

[Wigi]

"Range("C3") = Range("F3").Value
With Range("C3")
.Characters(Start:=7, Length:=2).Font.Bold = True
End With"

En dat is dan een oplossing zonder VBA?
Of ben ik weer niet mee?

Cobbe

Door gebruik te maken van een hulpveld
met de formule: =TEXT($C$3;"dd") & " " & TEXT($C$3;"ddd") en
met VBA de waarde van deze formule te kopieren

Range("C3") = Range("F3").Value