• 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.

Voorwaardelijke opmaak kolom automatisch toevoegen met VBA

Status
Niet open voor verdere reacties.

ErikdV

Gebruiker
Lid geworden
16 jun 2011
Berichten
81
Ik heb een werkblad, waarin ik in diverse kolommen gebruik wil maken van voorwaardelijke opmaak.

Ik heb de volgende code in VBA.
De code wil ik zodanig aanpassen dat ik:
1. Zelf de gewenste kolom in kan voeren.
2. Zelf de gewenste waarden en de daarbij behorende opmaak kan in voeren (achtergrond en font).
Ik wil gebruik maken van de standaardkleuren die excel gebruikt, dus geen uitgebreide rgb-notatie.
Het gaat over een beperkt aantal waarden (max. ca. 10)

Hoe doe ik dit?

Sub Vw_opm2()

With Sheets(2).Range("G:G").FormatConditions _
.Add(xlCellValue, xlEqual, "1")
With .Interior
.ColorIndex = 3
End With
With .Font
.Bold = True
.ColorIndex = 1
End With
End With

With Sheets(2).Range("G:G").FormatConditions _
.Add(xlCellValue, xlEqual, "2")
With .Interior
.ColorIndex = 46
End With
With .Font
.Bold = True
.ColorIndex = 1
End With
End With

End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan