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

Hoe kan ik automisch een tabblad een kleur geven

Status
Niet open voor verdere reacties.

jambi

Gebruiker
Lid geworden
15 nov 2009
Berichten
8
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
 

Bijlagen

Beste Willem

Nee,

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


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.
 
@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,

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
 

Bijlagen

Laatst bewerkt:
Hoi beiden

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


Nogmaals bedankt
 
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.
Code:
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.:rolleyes:


Met vr gr
Jack
 

Bijlagen

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
 
Zet deze in ThisWorkbook en dan werkt het voor elk werkblad
Code:
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan