Textvak achtergrond kleuren.

[Relleboer]

Wie kan mij helpen met het volgende probleem. Voor het makkelijker maken van het vinden van codes werken wij met kleur secties. Het is nu de bedoeling dat de achtergrond van kleur veranderd door middel van de kleur die opgegeven word in een cel op het werkblad. Maar hij wil alleen op dit moment getallen lezen maar als het om text gaat zeurt ie over verswchillende typen. Iemand een oplossing voor dit probleem. macro staat hiet onder.

vriendelijke groet Jan-willem

Sub Kleur()
Dim red
Dim blue
Dim yellow
Dim white
Dim black
Dim violet
Dim orange
Dim brown
Dim green

red = RGB(255, 0, 0)
blue = RGB(0, 130, 255)
yellow = RGB(255, 255, 0)
white = RGB(255, 255, 255)
black = RGB(0, 0, 0)
violet = RGB(255, 0, 255)
orange = RGB(255, 125, 0)
brown = RGB(130, 0, 0)
green = RGB(0, 255, 0)



TextBox1.BackColor = Range("a8").Text







End Sub

 

[Spiderman]

Hoi Relleboer,

Ik zou het zo doen:

Dim Waarde As String: Waarde = Range("B1").Value
Dim W() As String
Dim Kleur As Long

W = Split(Waarde, ",")

Kleur = RGB(W(0), W(1), W(2))
Blad1.TextBox1.BackColor = Kleur

Suc6

 

[Relleboer]

thanks

 

[Relleboer]

net niet wat ik zocht.

Arno,

Het is de bedoeling dat de macro de kleurnaam gaat lezen en dan de vooraf opgegeven moet gebruiken. Het gaat om het weer vinden van codes in het magazijn waar alles op kleur staat. zodat we niet steeds hoeven op te zoeken in welk kleur vak we moeten zijn.

Cel a8 geeft via een database een kleur naam en die moet worden vertaald in de achtergrond kleur als des betrefende kleur.

weet jij hier ook nog een ander oplossing voor.

alvast bedankt.

groeten jan-willem

 

[Spiderman]

Hoi Relleboer,

Met welke benaming worden de kleuren gegeven.
Is het als woord bijvoorbeeld: Rood
Is het als getal bijvoorbeeld: 3

 

[Relleboer]

de kleuren komen te staan zoals ze boven in mij formule geformuleerd zijn. het gaat om de negen kleuren als tekst.

het probleem is dat ie het wel doet als ik ipv de verwijzing na de cel de kleur naam intyp maar dat hij de naam niet uit een cel wil halen.

 

[Spiderman]

Hoi Relleboer,

Zet onderstaande code onder de code van de knop.

TextBox1.BackColor = ConvertColor(Range("A8").Value)

Zet onderstaande code ergens bijvoorbeeld in een Module

Function ConvertColor(Kleur As String) As Long

Select Case LCase(Kleur)
Case "red"
    ConvertColor = RGB(255, 0, 0)
Case "blue"
    ConvertColor = RGB(0, 130, 255)
Case "yellow"
    ConvertColor = RGB(255, 255, 0)
Case "white"
    ConvertColor = RGB(255, 255, 255)
Case "black"
    ConvertColor = RGB(0, 0, 0)
Case "violet"
    ConvertColor = RGB(255, 0, 255)
Case "orange"
    ConvertColor = RGB(255, 125, 0)
Case "brown"
    ConvertColor = RGB(130, 0, 0)
Case "green"
    ConvertColor = RGB(0, 255, 0)
Case Else
    MsgBox "Kleur niet gevonden!"
End Select
End Function

Suc6

 

[Relleboer]

Bedankt

Eindelijk heb ik hem aan het werk. bedankt