Nu hat aber das neue Excel komplett andere Farben als das
alte. Ich kann jetzt immer auf „weitere Farben“ klicken und
die alten Farben übernehmen - das merkt sich das Mistding aber
nur für einen Tag, wenn ich am nächsten die Farbe brauche,
muss ich alles von vorn machen. Alle Farben in der Tabelle zu
ändern kommt nicht in Frage, dafür ist das Ding einfach zu
groß, da bin ich ewig beschäftigt.
Hat jemand eine Idee, wie ich dauerhaft die alten Farben
wiederbekommen kann? Bzw. wie ich sie dauerhaft speichern
kann?
Hi Cess,
ungetestet mangels Xl2007.
Du brauchst deine alte XL-Version oder irgendeinen der sie aufm PC hat und dir das Ergebnis zuschicken kann.
Mit der alten XL-Version eine neue leere Datei beginnen.
Alt+F11, Einfügen–Modul, dorthin hinein die beiden Codes, Den Cursor beliebig in irgendeine Zeile der Prozeur „RGBWerte“ stellen und F5 drücken, Editor schliessen
Es wird ein neues Tabellenblatt erzeugt mit den Farbwerten.
Nun die Datei schliessen und mit XL2007 öffnen, Alt+F11, Doppelkick auf Modul1, ggfs den Blattnamen in der Prozedur „Makro2“ anpassen, sich irgendwo in die Prozedur „Makro2“ stellen und wieder F5.
Falls die „neuen“ XL2007-Farben jetzt nur für die neue Datei gelten sollte, dann melde dich nochmal. Interessant wäre dann auch die Info ob die neuen Farben zumindest über Nacht erhalten bleiben.
Gruß
Reinhard
Der erste Code ist gemopst von Frank:
http://groups.google.de/group/microsoft.public.de.ex…
Sub RGBWerte()
Dim intXLFarbnummer As Integer
Dim intR As Integer
Dim intG As Integer
Dim intB As Integer
Sheets.Add Before:=Sheets(1)
ActiveSheet.Range("A1:E1").Value = Array("Farbe", "ColorNr", \_
"Rot-Wert", "Grün-Wert", "Blau-Wert")
ActiveSheet.Range("A2").Select
For intXLFarbnummer = 1 To 56
With ActiveCell
.Interior.ColorIndex = intXLFarbnummer
.Offset(0, 1).Value = .Interior.Color
.Offset(0, 2).Value = Val("&h" & Right("000000" & \_
Hex(.Offset(0, 1)), 2) & "&")
.Offset(0, 3).Value = Val("&h" & Mid(Right("000000" & \_
Hex(.Offset(0, 1)), 6), 3, 2) & "&")
.Offset(0, 4).Value = Val("&h" & Left(Right("000000" & \_
Hex(.Offset(0, 1)), 6), 2) & "&")
.Offset(1, 0).Select
End With
Next intXLFarbnummer
End Sub
Sub Makro2()
Dim N As Integer
With Worksheets("Tabelle4") ' ggfs Namen anpassen
For N = 1 To 56
ActiveWorkbook.Colors(N) = RGB(.Cells(N + 1, 3), .Cells(N + 1, 4), .Cells(N + 1, 5))
Next N
End With
End Sub
