Office: (Office 365) 56 Benutzerdefinierte Farben in die Farbpalette integrieren

Moin,

na... so kompliziert ist das nun auch wieder nicht. Hab zwar nur mal kurz drübergeschaut, aber offensichtlich brauchst Du ja nur 9 Farben. Dazu musst Du nicht die Farbpalette ändern. Du definierst die Farben in VBA genau wie in Deinem xml Code auch.

Hab Dir mal ein einfaches Beispiel (ohne Fehlerprüfung und Berücksichtigung der tatsächlichen Gegebenheiten (die ich ja eh nicht kenne) gemacht. Hab aber die Farben verwendet, die ich in Deinem xml Code gefunden habe.

Code:

Sub ChangeColor()
Dim auswahl As Byte, farbwert As Long
Dim farbe As Long, arrHex(9) As String

    arrHex(0) = "0E2841"
    arrHex(1) = "E8E8E8"
    arrHex(2) = "156082"
    arrHex(3) = "E97132"
    arrHex(4) = "196B24"
    arrHex(5) = "A02B93"
    arrHex(6) = "4EA72E"
    arrHex(7) = "467886"
    arrHex(8) = "96607D"

auswahl = CLng(InputBox("Bitte eine Zahl von 0 bis 8 eingeben", "Farbauswahl", 1))
farbwert = HexToDecimal(arrHex(auswahl))
ActiveCell.Interior.Color = farbwert
End Sub

Function HexToDecimal(hexValue As String) As Long
    HexToDecimal = CLng("&H" & hexValue)
End Function

ChangeColor ausführen, Zahl eingeben und die aktive Zelle erhält den entsprechenden Farbwert.

Statt der Zahleneingabe in der Inputbox kannst Du auch den Farbnamen auswählen lassen und musst dann in einem Select Case Block die entsprechende Nummer an die Funktion übergeben... oder ganz auf die Inputbox verzichten und die Nummer als Parameter in der Sub entgegennehmen.... oder... oder... oder...

 

"Zumindest nicht für Menschen, die schon mal etwas von Corporate Identity gehört haben." ???

Freut mich ja, dass du Ausdrücke wie "Corporate Identity" kennst - du scheinst ja ein wahrer Experte zu sein (im Gegensatz zu mir) ...

Nenn mir doch mal eine Firma, die eine ganze Farbpalette (von z.B. 9 Farben) benutzt ?