Hoe kan ik automisch een tabblad een kleur geven

[jambi]

Beste excellers,

Wie kan mij helpen?
Ik wil het volgende doen:
Wanneer in E23 een 1 staat en E24 is leeg dan moet tabblad "Blad 1" rood worden.
Wanneer in E23 en E24 een 1 staat dan moet tabblad "Blad 1" groen kleuren

Ik heb bestandje toegevoegd.


Alvast bedankt,


Jambi

 

[popipipo]

Is dit wat je bedoelt??

 

[jambi]

Beste Willem

Nee,

Trouwens eerst bedankt voor je snelle hulp.
Maar ik bedoel de kleur van het tabblad.


Jambi

 

[Jack Nouws]

Of bedoel je dit misschien.

Met vr gr
Jack

 

[jambi]

Beste Jack

Inderdaad,

En als beide vakjes leeg zijn dan moet er niets gebeuren.
Maar hoe heb je dit geflikt?
Trouwens ik vergeet je nog te bedanken.

 

[Thankyou]

@Jack,

Netjes gedaan.
Mijn kennis van vba is 0, maar als beide op 1 staan (rij 23 en 24) dan is het tabblad netjes groen, haal je nu de 1 van rij 23 weg dan blijft het tabblad groen . . . .

Ik weet niet of dit de bedoeling is.

Succes,
Martin

 

[Jack Nouws]

@Jack,

Netjes gedaan.
Mijn kennis van vba is 0, maar als beide op 1 staan (rij 23 en 24) dan is het tabblad netjes groen, haal je nu de 1 van rij 23 weg dan blijft het tabblad groen . . . .

Ik weet niet of dit de bedoeling is.

Succes,
Martin

Bedankt Martin,:thumb:
Ik heb het bij deze aan proberen te passen
Het zal wellicht korter kunnen maar dit heb ik er van gemaakt.
PS ik zie ook graag andere oplossingen:thumb:

Met vr gr
Jack

 

[jambi]

Hoi beiden

Het laatste voorbelld bedoelde ik.
Maar kunnen jullie ook in het bijgesloten bestandje laten zien hoe het moet.


Nogmaals bedankt

 

[Jack Nouws]

Het laatste voorbelld bedoelde ik.
Maar kunnen jullie ook in het bijgesloten bestandje laten zien hoe het moet.


Nogmaals bedankt

Hallo jambi,

Open de bijlage.
Met Alt-F11 kom je in de VBA-editor.
Kies voor Beeld - Projectverkenner (of CTRL-R)
Selecteer links het werkblad waarin je actief bent.(in dit geval Blad1 of Sheet1)
Vervolgens zie je daar deze code staan.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Sheets(1)
    If .[E23] = 1 Then .Tab.Color = 255
    If .[E23] = 1 And [E24] = 1 Then .Tab.Color = 5296274
    If .[E23] <> 1 And [E24] = 1 Then .Tab.Color = xlNone
    If .[E23] <> 1 And [E24] <> 1 Then .Tab.Color = xlNone
  End With
End Sub

Hopelijk kom je er zo aan uit.


Met vr gr
Jack

 

[jambi]

Beste Jack en Martin

Bedankt voor het meedenken.
Echter als de VBA aanpassing doorvoer dan verandert de kleur van het eerste tabblad.
Mijn bedoeling is dat bij het invoeren van 1 in E23 en E24 het desbetreffende tabblad veranderd en niet de het eerste tabblad.

PS naar wie kan het gebak toesturen voor de hulp

Jambi

 

[Warme bakkertje]

Zet deze in ThisWorkbook en dan werkt het voor elk werkblad

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With ActiveSheet
        .Tab.ColorIndex = IIf(WorksheetFunction.CountA(.[E23:E24]) <> 2, 3, 4)
    End With
End Sub