Hallo!
Ich möchte in einem bestimmten Feld (z.B. A1) jedem Zeichen eine bestimmte Farbe zuordnen.
Dazu habe ich vorher in einem Array Arr() das genausoviele Werte (das ist der jeweilige colorindex der gewünschten Farbe) enthält wie das Feld A1 Zeichen hat (damit habe ich für jedes Zeichen einen Colorindex. Heißt also 1.Variable von Arr() ist der Colorindex für das erste Zeichen in A1, 2.Variable in Arr() ist der Colorindex für das zweite Zeichen in A1 usw.
So sieht dann der Code aus:
For x = 1 To UBound(Arr)
Range("A1").Characters(x, 1).Font.ColorIndex = Arr(x)
Next x
Denke mal das Problem wäre auch beantwortet wenn mir jemand sagen kann wie ich z.B. dem 10 Buchstaben den colorindex 4 Zuordnen kann. meine Lösung dafür wäre ja dann
Range("A1").Characters(10,1).Font.ColorIndex = 4
Für jede hilfe bin ich wirklich wirklich dankbar! |