Danny,
als je "True" zonder aanhalingstekens schrijft zal het in elke Excelversie (frans, nederlands, engels, ...) werken
.FormatConditions.Add Type:=2, Formula1:=True
NB:
Bovenstaande methode is nuttig als er al kleuren op je werkblad zijn. Anders is het wel een omweg, want je kan net zo goed de "echte" kleur laten wisselen in plaats van de voorwaardelijke kleur. Bovendien kunnen de kleuren dan vrij makkelijk "hersteld" worden: dat vraagt natuurlijk meer code.Je hebt onrechtstreeks op mijn vragen geantwoord (zonder het te weten? zag je die vragen wel?). Je gebruikte geen voorwaardelijke opmaak en je wil inderdaad rijen en kolommen kleuren...
Je reageerde niet op
Er is bovendien een probleem met de meeste methodes: "undo" werkt niet meer.
Persoonlijk vind ik de mogelijkheid "ongedaan maken" absoluut noodzakelijk. Elke stommiteit moet kunnen "teruggedraaid" worden... Probeer eens effe het volgende: selecteer een cel, tijp iets, probeer ongedaan te maken
lukt niet meer, als je bovenstaande code geïnstalleerd hebt.
Hier zijn verscheidene oplossingen voor mogelijk. De allersimpelste met voorwaardelijke opmaak is de volgende.
1. Selecteer bereik waarvan je rijen en kolommen wil kleuren.
2. Voorwaardelijke opmaak - formule=
=OF(RIJ()=CEL("row");KOLOM()=CEL("col"))3. Code in sheetmodule: dit is wel heeeel simpel.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub
Voor mensen die geen code mogen/kunnen gebruiken (op hun werk) Het fantastische is dat de code eigenlijk niet eens nodig is. Elke keer je bereik berekend wordt, zal je het correcte resultaat zien. Je kan gewoon functietoets F9 drukken.
zonnige weekendgroet,
Erik