Formatierung von Bereiche übertragen
18.01.2018 17:18:29
Bereiche
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
Dank.
Anzeige