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

automatisch tabblad kleur

Status
Niet open voor verdere reacties.

keesvanoosterhout

Gebruiker
Lid geworden
4 okt 2022
Berichten
15
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
 
Nou vooruit:

Code:
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
 
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then ActiveSheet.Tab.ColorIndex = 3 - 9 * (Target < 0)
End Sub
 
Als het dan perse met een one-liner moet dan vind ik deze beter leesbaar:

Code:
    If Target.Address = "$A$1" Then ActiveSheet.Tab.Color = IIf(Target < 0, vbRed, vbGreen)
 
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.
 
Wat dacht je ervan om dat gewoon eens te proberen? Lijkt me sneller gaan dan hier een vraag te stellen.:rolleyes:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan