farvekode i celle som definere celle bagrundens farve

fx.

Sub test()
For Each c In Range("A1:A5")
c.Interior.ColorIndex = c
Next
End Sub

kan jeg bede dig om at "guide" mig lidt til hvor man skal indsætte den funktion og sådan?

har desværre ikke den store kundskab i programmet

Marker og kopier koden herfra
Tilbage i din projektmappe taster du ALT+F11
Vælg Module i menuen Insert
paste koden i vindue som fremkommer
Tast ALT+Q for at returnere til arket
Tast ALT+F8, marker "test" og klik Afspil/Run

Range("A1:A5")
skal rettes så det dækker dit aktuelle område

mine farvekoder spænder over alle #xxxxxx websafe skemaet, kan det ikke autodefineres på en måde?

vis lige et par eks. af dine koder

#0000FF, #000000, #FFFFFF osv..  sådan står de bare i en kolonne der hedder "overflade". eller vil du se kode helt inde fra min mysql insert?

Excel opererer med farvekoder 0 til 56 (så vidt jeg ved)
er det hex-tal du har der ?

hmm ved ikke helt om det hedder hex-tal. men det er kode du kan bruge i photoshop og de fleste andre programmer jeg kender

har lige teste fra photoshop til excel:

koden #ff4b10 eller R:255 G:75 B:16 i photoshop

kan indtastes i excel i RGB felterne og give den samme farve som i photoshop.

så det er vel et spørgsmål om at få det om regnet til RGB og så til excels koder?

ok prøver lige at kikke på det

mange tak :)

I hvilken kolonne har du farvekoder ?
Hvad hedder arket?
Har du en ledig celle jeg kan anvende i arket ?

Prøv denne

Sub test()
Dim Red As String
Dim Green As String
Dim Blue As String
For Each C In Range("A1:A15")
If C <> "" Then
Red = Val("&H" & Mid(C, 1, 2))
    'The red value is now the long version of "00"
Green = Val("&H" & Mid(C, 3, 2))
    'The red value is now the long version of "FF"
Blue = Val("&H" & Mid(C, 5, 2))
    'The red value is now the long version of "1F"
C.Interior.Color = RGB(Red, Green, Blue)
End If
Next
End Sub

Eller denne

Public Sub Test()
    For Each c In Range("A1:A5")
    Dim A As Long
        If c <> "" Then
            A = CLng("&h" & Right(c, Len(c) - 1))
      c.Interior.Color = RGB(GetRGB(A, 1), GetRGB(A, 2), GetRGB(A, 3))
        End If
    Next
End Sub

Function GetRGB(RGBval As Long, Num As Integer) As Integer
' Check if Num, RGBval are valid.
If Num > 0 And Num < 4 And RGBval > -1 And RGBval < 16777216 Then
  GetRGB = RGBval \ 256 ^ (Num - 1) And 255
Else
' Return True (-1) if Num or RGBval are invalid.
  GetRGB = True
End If
End Function

Sub koder()

kol = 5 ' 5 = kolonne E, ret 5 til aktuel kolonne hvor dine koder er

For t = 2 To Sheets("Ark4").Cells(65500, kol).End(xlUp).Row ' ret til aktuel ark
r = "&H" & Mid(Cells(t, kol), 2, 2)
g = "&H" & Mid(Cells(t, kol), 4, 2)
b = "&H" & Mid(Cells(t, kol), 6, 2)
Cells(t, kol).Interior.Color = RGB(r, g, b)
Next

End Sub

Hejsa, sorry jeg gik kold igår.. hvilken af de 3 posts skal jeg bruge?

og skal jeg rette noget selv?

arket hedder reg_db kolonnen hedder "overflade"

hov opdagede lige at jeg heller må kalde kolonne for række i stedet :)

men det er hele række M

tag den der passer bedst

Sub koder()

For t = 2 To Sheets("reg_db").Cells(65500, "M").End(xlUp).Row
r = "&H" & Mid(Cells(t, "M"), 2, 2)
g = "&H" & Mid(Cells(t, "M"), 4, 2)
b = "&H" & Mid(Cells(t, "M"), 6, 2)
Cells(t, "M").Interior.Color = RGB(r, g, b)
Next

End Sub

så virker den på 1 farve.. kan man ikke lave noget så den virker på alle farvekoder der kan sammensættes?

og så bliver den negativfarven i excel? hehe

har testet på følgende koder og får:

#000000 - sort
#FF0000 - rød
#ff4b10 - orange
#00FF00 - grøn
#0000FF - blå

hvad mener du med 1 farve/negativ farve ?

Vil det sige at koden reagere på hele "overflade" rækken? jeg fik bare en runtime error.

da jeg fik den til at reagere på den ene farvekode, var det ikke den farve som farvekoden giver, men negativen af den.. du ved den modsatte farve.

1 farve = en af farvene i rækken. men kun en.

er alle dine koder i formatet #xxxxxx (altså 7 tegn) ?

send evt. dit ark til pm@madsen.tdcadsl.dk

ja det er de. jeg har lige sendt dig et ark:)

Da jeg 2 gange har sendt en forkert fil til dig over mail. kan den rigtige hentes her.

http://www.landligferie.dk/reg_db.xls

ok den skulle lige rettes lidt til prøv:

Sub koder()

For t = 2 To Sheets(1).Cells(65500, "M").End(xlUp).Row
If Left(Cells(t, "M"), 1) = "#" Then
r = "&H" & Mid(Cells(t, "M"), 2, 2)
g = "&H" & Mid(Cells(t, "M"), 4, 2)
b = "&H" & Mid(Cells(t, "M"), 6, 2)
Cells(t, "M").Interior.Color = RGB(r, g, b)
End If
Next

End Sub

skulle den farve virke på alle #XXXXXX, eller kun en bestemt?

yes sir, så virker den :) mange tak! du lægger bare et svar

ok velbekom