Met Excel-VBA een cel kleuren afhankelijk van de inhoud van de cel?

Met voorwaardelijke opmaak heb ik dit voor elkaar. Als er 'A' staat dan moet de cel blauw kleuren (kleurnr. 15773696), etc. Zo zijn er in totaal 5 kleuren. Het gekke is dat je deze kleur niet geselecteerd ziet bij Start - Lettertype - Opvulling.
Deze kleuren kunnen per cel verschillend in een bereik. Zo moet elke cel in het bereik worden onderzocht op de inhoud ('A', 'H', 'N' of 'X') en daar moet dan de juiste 'harde' kleur komen. Als deze cel dan is ingekleurd door de VBA-code (middels een macro) en ik verander vervolgens de waarde van de cel dan moet de kleur blijven staan (vandaar de term 'harde kleur'). In tegenstelling tot de 'softe' kleur door de 'Voorwaardelijke opmaak'. De kleurnrs voor H, N en X vul ik zelf later wel in.

Vraag: hoe maak ik zo'n VBA-code dat cellen in een bereik één-voor-één gaat onderzoeken en kleuren. Bv A1:D20

Ik heb al een macro gemaakt dat 1 cel blauw kleurt zonder naar de inhoud van de cel te kijken:

Sub Kleur_de_cel_blauw()
'
' Kleur_de_cel_blauw Macro
'

'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Verwijderde gebruiker

7 jaar geleden

in: Programmeren

13.9K

13.9K keer bekeken

3 reacties 3

• Deel op Facebook
• Deel op Twitter
• Deel op WhatsApp
• Delen

paulus811

7 jaar geleden

Zet om de macro een do - while statement. 1e regel is dan do while activecell.value <> "" Laatste regels zijn
Activecell.offset(1;0).select
Wend Zoiets, ik geef antwoord via de app dus kan het niet controleren, maar in deze richting moet je het zoeken.

Verwijderde gebruiker

7 jaar geleden

Volgens mij loop je dan niet door de rijen en de kolommen, maar slechts door één van de twee.

paulus811

7 jaar geleden

Klopt, voor meer kolommen spring je aan het eindvterug naar regel 1 en begin je opnieuw

Heb je meer informatie nodig om de vraag te beantwoorden? Reageer dan hier.

Voeg reactie toe