• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel vba voorwaardelijke opmaak

Status
Niet open voor verdere reacties.

Jingles

Gebruiker
Lid geworden
13 feb 2003
Berichten
54
Hallo,

Ik zit met een probleempje.
Hoe kan ik in deze code bij Case waar piet of jan staat iets zetten waar hij in blad2 cel a1 de naam uit haalt en het zelfde voor jan.
Dit omdat de namen nog wel eens veranderen en je niet steeds de vba code hoeft aantepassen.

Groetjes Edwin

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Range
For Each x In Range("A1:A10")
Select Case x
Case ""
x.Interior.ColorIndex = xlNone
Case "piet"
x.Interior.ColorIndex = 5
Case "jan"
x.Interior.ColorIndex = 3
End Select
Next
End Sub
 
Code:
Select Case Sheets("Blad2").Range("A1").Value

Gebruik in het vervolg code tags rond je code (zoals ik hier heb gedaan).

Wigi
 
Al zou ik hier geen VBA voor gebruiken. Opmaak > Voorwaardelijke opmaak is veel efficiënter.

Wigi
 
voorwaardelijke opmaak kun je maar 3 keer gebruiken. ik heb er 5 of meer nodig vandaar vba
 
nee sorry kwam er wat laat achter.:(

Je code werkt bedankt :thumb:

Edwin
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan