CelKleur aanpassen afhankelijk van tekst in andere Cel

[bnavest]

Hallo,

Voor mijn hobby wil ik graag het volgende maken:

Wanneer de tekst in cel D10 = techno moet de kleur van cel A3 Blauw zijn
Wanneer de tekst in cel D10 = Club moet de kleur van cel A3 Paars zijn
Wanneer de tekst in cel D10 = Electro moet de kleur van cel A3 Geel zijn

En zo heb ik totaal 9 teksten met bijbehorende kleuren.
Met voorwaardelijke opmaak kan het volgens mij niet.

Ik heb in het forum gezocht en in mijn VBA boek (Ik ben onervaren met VBA laats een 1 dags cursus gehad) maar ik kom niet tot een oplossing.

Zou iemand mij hiermee kunnen helpen.

Met vriendelijke groet,

Bernard

 

[Finch]

Doe eens even een zoekopdracht op het forum. Deze vraag is al een paar keer voorbij gekomen. Heb momenteel niet de tijd je verder te helpen, misschien later wel.

 

[Roncancio]

Een opzet.
Met de VBA cursus kan je de rest denk ik wel invullen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D10").Address Then
    Select Case Range("D10").Value
    Case "techno"
        Range("A3").Interior.ColorIndex = 41
    Case "club"
        Range("A3").Interior.ColorIndex = 39
    Case "elektra"
        Range("A3").Interior.ColorIndex = 6
        
'Hier kan je de rest invullen.

    Case Else
        Range("A3").Interior.ColorIndex = xlNone
    End Select
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[bnavest]

Een opzet.
Met de VBA cursus kan je de rest denk ik wel invullen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D10").Address Then
    Select Case Range("D10").Value
    Case "techno"
        Range("A3").Interior.ColorIndex = 41
    Case "club"
        Range("A3").Interior.ColorIndex = 39
    Case "elektra"
        Range("A3").Interior.ColorIndex = 6
        
'Hier kan je de rest invullen.

    Case Else
        Range("A3").Interior.ColorIndex = xlNone
    End Select
End If
End Sub

Met vriendelijke groet,


Roncancio

Super, dit is precies wat ik bedoelde en het werkt perfect. Echt geweldig dat je me geholpen hebt.

Bernard

 

[Roncancio]

Super, dit is precies wat ik bedoelde en het werkt perfect. Echt geweldig dat je me geholpen hebt.

Bernard

Graag gedaan.
Gaarne de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio

 

[bnavest]

Graag gedaan.
Gaarne de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio

Roncancio,

Nog een heel klein vraagje, de bron cel D10 heb ik op een andere sheet staan (naam van deze sheet is plakken) nu ben ik een uurtje aan het stoeien maar krijg het niet voor elkaar, als het erg moeilijk is zet ik hem gewoon op dezelfde sheet.

Bernard

 

[Roncancio]

Moeilijk niet, maar je moet de code wel verplaatsen naar het werkblad plakken.
Vervolgens kan je in de code een verwijzing maken naar het andere werkblad.
Zo iets:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D10").Address Then
    Select Case Range("D10").Value
    Case "techno"
        Worksheets("[B]ander werkblad[/B]").Range("A3").Interior.ColorIndex = 41
    Case "club"
        Worksheets("[B]ander werkblad[/B]").Range("A3").Interior.ColorIndex = 39
    Case "elektra"
        Worksheets("[B]ander werkblad[/B]").Range("A3").Interior.ColorIndex = 6
        
'Hier kan je de rest invullen.

    Case Else
        Worksheets("[B]ander werkblad[/B]").Range("A3").Interior.ColorIndex = xlNone
    End Select
End If
End Sub

Uiteraard moet je de vetgedrukte gedeeltes nog aanpassen aan de naam van het werkblad waarin je de kleuren wilt plaatsen.
Als er nog vragen zijn, dan hoor ik het wel.

Met vriendelijke groet,


Roncancio

 

[bnavest]

Moeilijk niet, maar je moet de code wel verplaatsen naar het werkblad plakken.
Vervolgens kan je in de code een verwijzing maken naar het andere werkblad.
Zo iets:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("D10").Address Then
    Select Case Range("D10").Value
    Case "techno"
        Worksheets("[B]ander werkblad[/B]").Range("A3").Interior.ColorIndex = 41
    Case "club"
        Worksheets("[B]ander werkblad[/B]").Range("A3").Interior.ColorIndex = 39
    Case "elektra"
        Worksheets("[B]ander werkblad[/B]").Range("A3").Interior.ColorIndex = 6
        
'Hier kan je de rest invullen.

    Case Else
        Worksheets("[B]ander werkblad[/B]").Range("A3").Interior.ColorIndex = xlNone
    End Select
End If
End Sub

Uiteraard moet je de vetgedrukte gedeeltes nog aanpassen aan de naam van het werkblad waarin je de kleuren wilt plaatsen.
Als er nog vragen zijn, dan hoor ik het wel.

Met vriendelijke groet,


Roncancio

Bedankt,

Alles werkt nu.

Bernard