---

Jeg sidder og skal bruge en række ral-farver i excel, og har søgt nettet tyndt for at finde ral-farverne oversat til excels farvekoder.... Det lader sig bare ikke finde...

Nogen der ved hvor det kan findes?

Alternativt: hvad hedder Excels farvekoder?

---

PANTONE:

http://www.pantone.co.uk/pages/pantone/index.aspx

- prøv at kigge i "product advisor"...

---

Jeg har nogle pantone-koder, men synes ikke jeg kan få oversat til de koder excel bruger.

Excels farvekoder er jo f.eks. &H00FFFF80&

---

Excel har 56 standardfarver i VBA hvor de nummereres fra 1 til 56

Man kan faktisk definere sin standard palette - denne lægges i et modul for sig selv

Sub definer_farve()
ActiveWorkbook.Colors(5) = RGB(255, 50, 0)
End Sub

Denne i arkets programkode

Private Sub worksheet_change(ByVal target As Range)
Call definer_farve
If Not Intersect(Range("B1:B30"), target) Is Nothing Then
With target
Select Case target.Value
Case 0
.Interior.ColorIndex = 0
Case 1
.Interior.ColorIndex = 1
Case 2
.Interior.ColorIndex = 2
Case 3
.Interior.ColorIndex = 3
Case 4
.Interior.ColorIndex = 4
Case 5
.Interior.ColorIndex = 5
Case 6
.Interior.ColorIndex = 6
Case 7
.Interior.ColorIndex = 7
Case 8
.Interior.ColorIndex = 8
Case 9
.Interior.ColorIndex = 9
Case 10
.Interior.ColorIndex = 10
Case 11
.Interior.ColorIndex = 11
Case 12
.Interior.ColorIndex = 12
Case 13
.Interior.ColorIndex = 13
Case 14
.Interior.ColorIndex = 14
Case 15
.Interior.ColorIndex = 15

Case Else
.Interior.ColorIndex = xlNone
End Select
End With
End If
End Sub

Dog er jeg i tvivl om RGB farven lægger op ad nærmeste standardfarve
du kan jo prøve dig frem.

---

omregning fra ral til rgb
http://www.pats.ch/formulaire/unites/unites11.aspx

---

Tak for svaret Rosco40.

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.