unter dem Link
https://www.herber.de/forum/archiv/1240to1244/1241667_nur_Zellenfarbe_kopieren.html
hat Rudi Maintaire 2012 eine zellenweise Übertragung der Farbe vorgeschlagen:
Sub Farben_kopieren()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Sheets("Tabelle1").Range("A20:D119")
Sheets("Tabelle2").Cells(rng.Row, rng.Column).Interior.ColorIndex _
= rng.Interior.ColorIndex
Next
End Sub
Gibt es inzwischen eine Möglichkeit die Formatierung eines Bereichs auf einen anderen vorzugsweise in einem Schritt zu übertragen? So wie es z.B. mit Werten problemlos möglich ist: Range(Cells(1,1),Cells(10,2))=Range(11,1),Celle(20,2).ValueDank.