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

Kleur met voorwaardelijke opmaak telt niet

Status
Niet open voor verdere reacties.

frans kooijman

Gebruiker
Lid geworden
22 apr 2008
Berichten
531
Hi,

...een lastige (voor mij althans...):

Ik heb in VBA in module gezet dat het aantal waarden in een bereik geteld moet worden.

In Excel telt keurig in kolom A de gele waarden, gerelateerd aan de achtergrondkleur in cel B1.

Ditzelfde wil ik in kolom E, gerelaleerd aan cel F1.
Dit werkt wel, maar niet als ik het uitbreid met een voorwaardelijke opmaak, waarbij
als de waarde "Ja" de cel geel moet kleuren (dat werkt wel in kolom E), maar nu telt
de waarde niet door naar 3, maar blijft op 2 staan.

De automatische toegekende kleur is hetzelfde als in F1, maar waarom telt de cel met
waarde "Ja" niet meer als herkende kleur?

Kan dit niet met voorwaardelijke opmaak?

Iemand een idee (of nog beter, een oplossing)?


Frans
 

Bijlagen

VBA doet niets met voorwaardelijke opmaak. Je zal de cellen dus eerst met VBA moeten kleuren alvorens je ze kan tellen.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Value = "Ja" Then Target.Interior.ColorIndex = 6
End Sub

"Ja" is wel hoofdlettergevoelig
 
Laatst bewerkt:
aha, ok, dat verklaart.
Helaas heb ik voor iedere kolom een verschillende waarde (wel standaard 1 waarde per kolom,
dus bv in kolom D altijd waarde Ja en in kolom E altijd waarde Nee).
Maar geen idee hoe ik dat in VBA moet programeren.

Frans
 
Succes! :thumb:

In mijn haast even iets vergeten. Wanneer er naderhand de JA wordt verwijderd, moet de kleur weer verdwijnen.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Value = "Ja" Then
Target.Interior.ColorIndex = 6
Else
Target.Interior.ColorIndex = 0
End If
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan