Celkleuren overnemen

[Veldschuur]

Ik ben bezig om een planningschema (rooster) te maken.
Ik wil de kleuren en de inhoud van de cellen overnemen en automatisch laten vullen in een ander tabblad.
Aangezien ik meer als 3 kleuren heb kan ik de voorwaardelijke opmaak niet gebruiken.

Wie kan mij helpen.

Ben

 

[popipipo]

Het inkleuren zal dan via VBA moeten gebeuren.
Gebuikt de zoekfunctie met: vba kleuren
en je zult diverse andere vragen met oplossingen tegen komen.

Zoek ook eens op kalender dan kom je ook eenvoudigere oplossingen wat datum betreft tegen dan die van jou.

 

[Veldschuur]

Hoi,

Bedankt voor de reactie. Ik heb het hele forum afgezocht, maar niet gevonden wat ik zoek. Misschien kan ik duidelijker zijn in wat ik zoek.

Het bestand heeft 3 tabbladeren. Op 1 tabblad (2010) is een klein stukje opgenomen van een jaar planning. Deze planning vul ik met de gegevens die bij personeel staan.
In het tabblad "legenda" heb ik cellen staan met een bepaalde waarde en een bepaalde kleur.
Ik zou graag zien dat alle cellen in tabblad "2010" automatisch de kleur krijgen van de cel in tabblad 'legenda " zodra de inhoud in tabblad "2010" gelijk is aan de omschrijving in tabblad "legenda"

Ik krijg dit niet opgelost. Gelukkig weten we samen veel.

Alvadt bedankt voor het meedenken

 

[popipipo]

http://www.helpmij.nl/forum/showthread.php?t=478121&highlight=vba+kleuren

Kijk hier eens naar het voorbeeldje bij reactie nr #2

Hier vind je voorwaardelijk opmaak via VBA, zodat je meer dan 3 kleuren kunt gebruiken.

 

[Warme bakkertje]

Sub kleuren()
    For Each cl In [L8:AB25] 'aanpassen aan werkelijke situatie
        Select Case cl.Value
            Case "S", "G", "U", "O"
                cl.Interior.ColorIndex = 2
            Case "D"
                cl.Interior.ColorIndex = 4
            Case "C"
                cl.Interior.ColorIndex = 10
            Case "W", "ATV"
                cl.Interior.ColorIndex = 45
            Case "Z"
                cl.Interior.ColorIndex = 3
            Case "BV"
                cl.Interior.ColorIndex = 38
            Case "XV"
                cl.Interior.ColorIndex = 8
            Case "OR"
                cl.Interior.ColorIndex = 6
            Case "XX"
                cl.Interior.ColorIndex = 37
            Case Else
                cl.Interior.ColorIndex = xlNone
        End Select
    Next
End Sub

 

[Veldschuur]

Bedankt voor de reacties,

Inderdaad de aangedragen oplossingen werken goed. Daarvoor dank.
Ik wil het echter nog een stukje verder automatiseren.
In het blad legenda kan men nu een afkorting plaatsen die een bepaalde kleur krijgt.
Is het ook mogelijk om de tekst en kleur in het blad Legenda te veranderen en dat deze verandering direct doorwerkt in het tabblad 2010?

alvast bedankt voor het meedenken.:thumb: