Zelle X automatisch mit Schriftfarbe in Zellen XYZ im abgeänderten Format einfügen

[schauan]

Hallöchen,

In der rechten Zelle soll die Farbe der Ziffern immer übernommen werden, auch wenn ich links die Farben ändere.

wie ist das gemeint? Die Farbe welcher Ziffern änderst Du?

Im Prinzip kann das mit so einem Makro gehen. Übernommen wird die Farbe der Zahl nach dem zweiten Schrägstrich. Das Makro könntest Du einem Button zuweisen und statt der festen Programmierung von A1 könnte man z.B. auch With ActiveCell schreiben ...

Sub Schraeg()
'Variablendeklarationen
'Integer, String, Long
Dim iPos%, iColor&
'Mit der Zelle A1
With ActiveSheet.Cells(1, 1)
  'Position des ersten Zeichen nach dem zweiten Schraegstrich ermitteln
  iPos = InStr(InStr(.Value, "/") + 1, .Value, "/") + 1
  'in Zelle 3 neben A1 Schriftfarbe uebernehmen
  .Offset(0, 3).Font.Color = .Characters(Start:=iPos, Length:=1).Font.Color
'Ende Mit der Zelle A1
End With
End Sub