Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einzelne Zeichen formatieren, wenn Formel

Einzelne Zeichen formatieren, wenn Formel
25.12.2005 20:48:56
Rolf
Ich habe folgende Macro,

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelne Zeichen formatieren, wenn Formel
25.12.2005 20:52:52
Hajo_Zi
Hallo Rolf,
Nein, Formel können nicht formatiert werden.


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige