tab kleuren

[cor.de.kruijf]

is het mogelijk om de kleur van de tab van een werkblad rood te kleuren wanneer het resultaat van een simpele som formule (=som(C3:C25) groter is dan 0, en groen wanneer het resultaat 0 is?

 

[robdgr]

Deze vraag is al eens eerder gesteld en hier vind je een antwoord.

 

[cor.de.kruijf]

aan robdgr

dit betreft toch een andere vraag, het werkt wel enigzins maar gaat niet automatisch en kan maar 1 optie waar maken, kleur of geen kleur.
Ik zoek rood of groen, en automatisch

 

[edmoor]

Plaats de volgende functie in een module:

Public Function tabkleur(kleur As Integer)
    ActiveWorkbook.Sheets(ActiveSheet.Name).Tab.ColorIndex = kleur
    tabkleur = vbNullString
End Function

Vervolgens zet je de volgende functie in een cel:

=IF(C3 > 0;tabkleur(4);tabkleur(3))

Waarbij je C3 > 0 vervangt door je eigen vergelijking.

Zorg ervoor dat Berekenen in de Excel opties op Automatisch staat.
Sla je werkblad op als .xlsm bestand. (Werkblad met macros)

Tabkleur 4 is groen en 3 is rood.
Een lijstje met de kleurwaarden kun je vinden op deze pagina.

 

[cor.de.kruijf]

@ edmoor

Dit geeft een foutmelding #NAAM? bij de formule met de tekst "de formule bevat tekst die niet wordt herkend"

ik werk overigens met office 2010

 

[edmoor]

Heb je wel een module aangemaakt en hem daar in gezet?
Bij mij werkt dat prima.
Ik zal het ook even in 2010 proberen.

 

[cor.de.kruijf]

@ edmoor

ja dat heb ik gedaan. Ik ga het morgen even in een vers blad proberen.

zover bedankt vast in ieder geval. :thumb:

 

[edmoor]

#NAAM? betekend dat hij de functie niet kan vinden. In 2007 ging dat prima, in 2010 heb ik ook die melding.
Ik zal er nog eens naar kijken. De functie zelf is in ieder geval goed.

 

[edmoor]

Oeps!
Mijn Office 2010 is Nederlands en dan moet de IF in de cel in ALS worden veranderd.
Dan werkt het gewoon goed.

Dat had ik ook aan de melding kunnen zien
Oh well...

 

[cor.de.kruijf]

@ edmoor

hahaha dat had ik zelf ook moeten zien.

Zo werkt het!
Wat moet ik in de vba code nog wijzigen om het alleen voor een specifiek blad te laten werken?

Gr. Cor

 

[edmoor]

Mooi zo
Je kunt ActiveSheet.Name veranderen in "naam van de tab", inclusief de " tekens.
Dan werkt het voor de opgegeven tabnaam.

 

[cor.de.kruijf]

ok........................
helemaal perfect edmoor.

Ik zal de status wijzigen.

Bedankt voor je oplossing

Gr. Cor

 

[edmoor]

Graag gedaan