Voorwaardelijke opmaak o.b.v. celeigenschappen

[bjkater]

Is het mogelijk om voorwaardelijke opmaak toe te passen op basis van celeigenschappen?

Wat ik graag zou willen is cellen een bepaalde kleur geven wanneer ik via celeigenschappen een diagonale lijn door de cel zet. (linksonder naar rechtsboven).

Heeft iemand hier misschien een oplossing voor?

 

[exhelp]

Dit is met voorwaardelijke opmaak niet mogelijk.
Hiervoor zal je VBA moeten gebruiken.

Mvg,
Exhelp

 

[bjkater]

Dit is met voorwaardelijke opmaak niet mogelijk.
Hiervoor zal je VBA moeten gebruiken.

Mvg,
Exhelp

iemand enig idee hoe ik dit aanpak?

 

[sylvester-ponte]

hoi bjkater

ik heb het geprobeerd (exel 2003)
door een formule te maken die de "cel diagonaal status" uit leest.
dat uitlezen gaat prima,
maar als ik de "cel diagonaal status" van een cel direct gebruik in de voorwaardelijke opmaak loopt mijn exel vast.????

doe ik het door de "cel diagonaal status" eerst in een andere cel op te slaan,
en dan de voorwaardelijke opmaak naar deze andere cel te laten kijken, dan gaat het wel.
in het voorbeeld hebben A1 en A2 de voorwaardelijke opmaak.
en in E1 en E2 staan de formules die de schuinestreep uitlezen.
omdat een opmaakwijziging geen trigger geeft heb ik bij selectionchange callculatefull gezet.
dus het werkt pas als je van cel wisseld.
Bekijk bijlage schuinstreep.xls
dit is de functie:

Function isDiagonaalUp(R As Range) As Boolean
    isDiagonaalUp = R.Borders(xlDiagonalUp).LineStyle <> xlNone
End Function

 

[bjkater]

hoi bjkater

ik heb het geprobeerd (exel 2003)
door een formule te maken die de "cel diagonaal status" uit leest.
dat uitlezen gaat prima,
maar als ik de "cel diagonaal status" van een cel direct gebruik in de voorwaardelijke opmaak loopt mijn exel vast.????

doe ik het door de "cel diagonaal status" eerst in een andere cel op te slaan,
en dan de voorwaardelijke opmaak naar deze andere cel te laten kijken, dan gaat het wel.
in het voorbeeld hebben A1 en A2 de voorwaardelijke opmaak.
en in E1 en E2 staan de formules die de schuinestreep uitlezen.
omdat een opmaakwijziging geen trigger geeft heb ik bij selectionchange callculatefull gezet.
dus het werkt pas als je van cel wisseld.
Bekijk bijlage 112435
dit is de functie:

Function isDiagonaalUp(R As Range) As Boolean
    isDiagonaalUp = R.Borders(xlDiagonalUp).LineStyle <> xlNone
End Function

Dit is waar ik naar op zoek was!
Super, bedankt.

 

[zapatr]

bjkater,
een diagonale lijn plaatsen vereist vier muisklikken.
Is het dan niet handiger om een macro te maken waarmee je met 1 muisklik zowel een diagonale lijn kunt plaatsen als de cel een kleur te geven?