Hi,
das kannst du nach diesem Schema erledigen.
Sub Farben()
'Farben 17 bis 32 sind Diagrammfarben
With ThisWorkbook
.Colors(17) = RGB(51, 102, 153)
'usw bis
.Colors(32) = RGB(151, 202, 253)
End With
End Sub
mfg Kurt
Hallo, ja das ist schon ein guter Ansatz, nur hat jedes einzelne Tabellenblatt sein eigenes Schema. Dieses Makro bezieht sich aud die gesammte Arbeitsmappe. Kann man das auch so schreiben das sich dann nur das ausgewählte Arbeitsbblatt ändert?!!
Gruss
Thomas