automatisch tabblad kleur

[keesvanoosterhout]

Hallo,

weet iemand hoe ik ervoor kan zorgen als de waarde in een bepaalde cel minder dan 0 is de tabblad rood kleurt en 0 of meer groen?
en zoja werkt dit dan ook als je heel het tabblad kopieert naar een nieuw tabblad?

alvast bedankt.

gr Kees

 

[AHulpje]

Alleen die bepaalde cel of het hele werkblad of alleen het gebruikte deel van het werkblad of alleen het tabje?

Meer dan 100.000 hits op "Voorwaardelijke opmaak".

https://support.microsoft.com/nl-nl...markeren-fed60dfa-1d3f-4e13-9ecb-f1951ff89d7f

 

[keesvanoosterhout]

Dat alleen het tabblad van kleur veranderd als de waarde van bv cel a1 boven of onder 0 is

 

[keesvanoosterhout]

Sorry, alleen het tabje inderdaad

 

[AHulpje]

Nou vooruit:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target < 0 Then
            ActiveSheet.Tab.Color = vbRed
        Else
            ActiveSheet.Tab.Color = vbGreen
        End If
    End If
End Sub

 

[keesvanoosterhout]

hartelijk dank.
hij doet het

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then ActiveSheet.Tab.ColorIndex = 3 - 9 * (Target < 0)
End Sub

 

[AHulpje]

Als het dan perse met een one-liner moet dan vind ik deze beter leesbaar:

    If Target.Address = "$A$1" Then ActiveSheet.Tab.Color = IIf(Target < 0, vbRed, vbGreen)

 

[keesvanoosterhout]

Als ik heel het tabblad kopieer en plak in een nieuw tabblad, werkt dit dan nog steeds of moet ik dan telkens die code opnieuw invoeren?

Albast bedankt.

 

[AHulpje]

Wat dacht je ervan om dat gewoon eens te proberen? Lijkt me sneller gaan dan hier een vraag te stellen.

 

[popipipo]

Het is wel netjes en gebruikelijk om te vertellen dat je de vraag ook ergens anders hebt gesteld.

https://www.pc-helpforum.be/topic/78414-automatisch-kleuren-tabje-van-een-tabblad/