Kleur tabblad wijzigen met VBA

[Symon1989]

Goedendag,

Ik zit al een tijdje te stoeien met VBA. Ik wil graag dat de kleur van een tabblad word gewijzigd bij de onderstaande voorwaarden.

Wanneer de niet-geblokkeerde cellen leeg zijn, dan tabblad kleur is 'geen kleur'
Wanneer in de niet-geblokkeerde cellen iets staat, dan tabblad kleur is 'Groen'

Als dit niet mogelijk is dan het volgende;

Wanneer in de cellen C2 t/m H6 of E12 t/m T116 of R2 t/m Y6 t/m AI t/m AP6 leeg zijn, dan tabblad kleur is 'geen kleur'
Wanneer in de cellen C2 t/m H6 of E12 t/m T116 of R2 t/m Y6 t/m AI t/m AP6 iets staat, dan tabblad kleur is 'Groen'

Kunnen jullie mij een VBA code geven die dit tot stand kan brengen?

Alvast bedankt.

 

[Peekhamer]

Ff puzzelen met

If Not Intersect(Target, Range("C2:H6,E12:T116,R2:Y6,AI6:AP6")) Is Nothing Then

(denk ik?)

 

[Symon1989]

Het is inmiddels opgelost met onderstaande code

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
i = "|" & LCase(Sh.Name) & "|"
If InStr("|blad2|blad55|blad56|blad57|blad58|", i) > 0 Then Exit Sub
If Not Intersect(Target, Union(Range("C2:H6"), Range("E12:T116"), Range("R2:Y6"))) Is Nothing Then

With Sh
For Each cl In Union(.Range("C2:H6"), .Range("E12:T116"), .Range("R2:Y6"))
If cl.Value <> "" Then
With Sh.Tab
.Color = 5287936
.TintAndShade = 0
End With
Exit For
Else
With Sh.Tab
.Color = xlAutomatic
.TintAndShade = 0
End With
End If
Next
End With
End If


End Sub

 

[mastermindzh]

Het is op helpmij.nl niet gewenst (lees toegestaan) om meerdere keer dezelfde vraag te stellen.
U kunt dus op uw vorige verder gaan: http://www.helpmij.nl/forum/showthread.php/868263-Kleur-tabblad-wijzigen-met-VBA

Veel succes met uw vraag :thumb: