Tabkleur aanpassen op basis van conditie

[ajhulsker]

Hallo!

Weet iemand of het mogelijk is om de tabkleur van een tabblad in Excel aan te passen, gebaseerd op een bepaalde conditie? Dus bijvoorbeeld als de waarde van een cel bijvoorbeeld groter dan 10% is, dat de tabkleur dan automatisch rood wordt en anders groen blijft.

En zo ja, hoe moet ik dit doen?

Groetjes,

AukeJan

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value > Range("A2").Value * 0.1 Then
    ActiveSheet.Tab.Color = vbRed
Else
    ActiveSheet.Tab.Color = vbGreen
End If
End Sub

Bovenstaande code verandert de tabkleur als de waarde van cel A1 groter is dan 10% van A2.

Met vriendelijke groet,


Roncancio

 

[Cobbe]

Ondermeer zo zou dit kunnen.

Sub Macro1()

    If Range("D2") > 50 Then
        With ActiveWorkbook.Sheets("Blad3").Tab
            .Color = 255
            .TintAndShade = 0
        End With
        With ActiveWorkbook.Sheets("Blad1").Tab
            .Color = 65535
            .TintAndShade = 0
        End With
    End If
End Sub
[\code]

Cobbe

 

[ajhulsker]

Hallo Roncancio ,

Bedankt voor je antwoord, ik ben alleen niet zo'n held in VB en zou niet zo goed weten hoe ik jouw code moet implementeren. Is er ook een manier om het "gewoon" in de cellen in excel te regelen of hoe moet ik die VB code implementeren?

Groetjes,

AukeJan

 

[Roncancio]

- Ga naar extra - macro - Visual Basic Editor
- Kies voor Beeld - Projectverkenner
- Klik met je rechtermuisknop op de tabblad waar je de code wilt hebben.
- Selecteer Projectcode weergeven.
- Zet daar de code in en pas het zonodig aan.

Als er nog vragen zijn, dan hoor ik het wel.
In een cel kan het m.i. niet.

Stuur desnoods het bestand (zonder gevoelige info) als het niet lukt.

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Roncancio, meer dan waarschijnlijk typo maar 10% is niet *0.1 maar *1.1
Code wordt dus

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value > Range("A2").Value * 1.1 Then
    ActiveSheet.Tab.Color = vbRed
Else
    ActiveSheet.Tab.Color = vbGreen
End If
End Sub

EDIT: negeer mijn opmerking, vraag verkeerd geïnterpreteerd

Mvg

Rudi