Als Antwort auf diesen Beitrag
auch das kann man noch kürzen.
da es ja nicht schadet die Quellzelle für die Farbe nochmal zu färben, kann man auch die ganze Zeile in einem Block färben.
und noch ein Tipp, weil RANGE mit zwei Zellen und anderem Tabellenblatt recht aufwendig ist, arbeite mit Resize um die 12 Spalten zu referenzieren
For r = 1 To lastRow
ws.Cells(r, "A").Resize(1, 12).Font.Color = ws.Cells(r, "B").Font.Color
Next r
noch einfacher wirds, wenn man eine Objektschleife über die Zellen der Spalte laufen lässt:
dim Zelle as Range
for each Zelle in ws.Usedrange.Columns(2)
Zelle.Offset(0, -1).Resize(1, 12).Font.color = Zelle.Font.Color
next
Gruß Daniel