Hallo Claus,
so richtig weiter weiss ich dann auch nicht.
Es könnte aber sein, das die Farbpalette von der Datei automatisch per Makro geändert wird.
Makro entweder unter DieseArbeitsmappe
Prozedur Workbook_Open
oder es steckt irgendwo eine Prozedur AutoexecOpen
Dort müssten Anweisungen wie
ActiveWorkbook.colors(1) = .....
Thisworkbook.Colors(1) = ....
zu finden sein. Diese müsstest du dann löschen.
Nachfolgend noch ein Makro, das die Farbpalette der aktiven Arbeitsmappe auf die Standardwerte unter Excel 2003 (sollten bei 2002 aber die gleichen sein) zurücksetzt.
Gruß
Franz
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