In der Musterdatei (anbei) sind Zellen mit Farben hinterlegt und per Makro wird neben den Farbzellen der Farbwert und der RGB Wert angezeigt. Das funktioniert: https://www.herber.de/bbs/user/143661.xlsm
Nun mein Problem:
In Spalte I (5:60), steht z.B. R 000 / G 000 / B 000, R 255 / G 255 / B 255, R 255 / G 0 / B 0 ...
Per Klick auf roten Knopf werden die Buchstaben R (rot), G (grün) und B (blau) und Schriftyp fett gefärbt.
Das geht nur bedingt, da die 3 Buchstaben innerhalb der Zellen an unterschiedlicher Stelle stehen.
Wie muss der Code lauten, damit nur die 3 Buchstaben im angebenen Bereich entsprechend gefärbt werden?
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Code in Modul3
Sub FarbeRGB()
Range("I5:I59").Select
ActiveCell.FormulaR1C1 = "R 0 / G 0 / B 0"
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Color = -16776961 'Rot
.Font.Bold = True
End With
With ActiveCell.Characters(Start:=7, Length:=1).Font
.Color = -16738048 'Grün
.Font.Bold = True
End With
With ActiveCell.Characters(Start:=13, Length:=1).Font
.Color = -65536 'Blau
.Font.Bold = True
End With
Range("A3").Select
End Sub