Wenn diese Tabelle offen ist und ich eine weitere öffne übernimmt die neue geöffnete Tabelle sogar diese Farbpalette!!!
Wie kann man die Farben zurücksetzen?
Vielen Dank für Eure Hilfe!!
Sub FarbpaletteZuruecksetzen()
' Erstellt: fcs 2008-05-12
' Programm: Excel 2003
' FarbpaletteAendern Makro
Dim arrColorPalette
'Feld mit den Farben (Color-Eigenschaft) der Excel-Standard-Farbpalette
arrColorPalette = Array(0, 16777215, 255, 65280, 16711680, 65535, 16711935, _
16776960, 128, 32768, 8388608, 32896, 8388736, 8421376, 12632256, 8421504, 16751001, _
6697881, 13434879, 16777164, 6684774, 8421631, 13395456, 16764108, 8388608, 16711935, _
65535, 16776960, 8388736, 128, 8421376, 16711680, 16763904, 16777164, 13434828, _
10092543, 16764057, 13408767, 16751052, 10079487, 16737843, 13421619, 52377, 52479, _
39423, 26367, 10053222, 9868950, 6697728, 6723891, 13056, 13107, 13209, 6697881, _
10040115, 3355443)
intOffset = 1 - LBound(arrColorPalette)
Application.ScreenUpdating = False
For intI = LBound(arrColorPalette) To UBound(arrColorPalette)
ActiveWorkbook.Colors(intI + intOffset) = arrColorPalette(intI)
Next
Application.ScreenUpdating = True
End Sub