Einzelne Zeichen formatieren, wenn Formel
25.12.2005 20:48:56
Rolf
Sub Einzelne_Zeichen_formatieren_in_ausgewähltem_Bereich()
Sheets("Anleitung").Range("A17:A25").Activate
For Each cell In Selection
Z = cell.Row
s = cell.Column
Cells(Z, s).Select
On Error Resume Next
A = ActiveCell.Characters.Count
For J = 1 To A
If ActiveCell.Characters(J, 1).Text = "D" Then
ActiveCell.Characters(J, 1).Font.Bold = True
End If
Next J
Next cell
End Sub
Es wird jeder Buchstabe (hier großes "D")in Fettschrift umgewandelt. Es funktioniert auch einwandfrei.
Jetzt steht allerdings eine Formel in der Zelle, die z.B. den Wert CDC zurückgibt. Dann geht mein Macro leider nicht, wo muß ich da etwas verändern?
mfg Rolf
Anzeige