Hallo pepi,
keine Ahnung, warum dir der nette Gast im anderen Thread nicht weiterhin behilflich werden konnte.
Aber wenn du schon soweit bist, das Zeichen in einer For-Schleife auszulesen, brauchst du doch nur das Font-Objekt auf dieses Zeichen anwenden. Dann kannst du alles andere auch auslesen:
Dim c As Range
For Each c In Selection.Range.Characters
MsgBox "Zeichen: " & c & Chr(13) & "Farbe: " & c.Font.TextColor
Next c
Gruß Mr. K.
|