ich habe ein kleines Problem mit dem kopieren von mehreren Hintergrundfarben von verschiedenen Blättern auf ein Blatt.
Wenn ich diesen Code anwende wird nur immer der letzte teil übernommen.
es sollen aber die Hintergrundfarben auf dem Blatt "gesamt" von allen Blättern erhalten bleiben _ und nur durch eine weitere Farbe ergänzt werden.
Sub Farben_kopieren()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Sheets("xy").Range("inhalt_x")
Sheets("gesamt").Cells(rng.Row, rng.Column).Interior.ColorIndex = rng.Interior.ColorIndex
Next
For Each rng In Sheets("xyz").Range("inhalt_y")
Sheets("gesamt").Cells(rng.Row, rng.Column).Interior.ColorIndex = rng.Interior.ColorIndex
Next
End Sub
hoffe ich habe mich verständlich ausgedrückt.