Excel - farv fane (VBA)

Ja det kan godt lade sig gøre.

;-)

Seriøse bud modtages gerne.

Noget sådan du tænkte:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A10").Value = "Ja" Then
    Me.Tab.Color = RGB(0, 255, 0)
ElseIf Range("A10").Value = "Nej" Then
    Me.Tab.Color = RGB(255, 0, 0)
Else
    Me.Tab.Color = RGB(200, 200, 200)
End If
End Sub

Du spørger bare om det kan lade sig gøre :-) og svaret er ja.

Hej ebea

Tusind tak for dit bud.

Jeg har kopieret koden ind i VBA, men kan ikke umiddelbart få det til at fungere.
Skal jeg gøre noget andet for at aktivere/køre koden?

Vh CHC

ebaa's kode skal ligge i kodearket for hvert ark, og så ændres farven, når der rettes i de enkelte ark.

Hvis du vil rette en masse ark på en gang, kan dette bruges

Sub Farv()
    For Each sh In ActiveWorkbook.Sheets
        If UCase(sh.Range("a10")) = "JA" Then
            sh.Tab.Color = RGB(0, 255, 0)
        ElseIf UCase(sh.Range("a10")) = "NEJ" Then
            sh.Tab.Color = 49407
        Else
            sh.Tab.Color = xlAutomatic
        End If
    Next sh
End Sub

#5 - Nej, koden får Tab farven til at skifte, ved forskellige input i A10 ("Ja" eller "Nej", eller ingenting).
Kig på farven på Tab (Faneblad), når du skriver i A10.

#6: Det er jeg enig i. Men den skifter jo kun i det ark, hvor koden findes, og når der er mange ark, skal den vel ligge i hvert af disse?

Som jeg læser OP ønskes en kode, der farver alle faner afhængigt af indholdet i A10 i de enkelte ark. bortset fra Ark1.

Hej Jan K og ebea

Mange tak for indsatsen.

#6 Det er korrekt, at den skal rette arkene på en gang.
med koden i #6 for jeg en Compile error: Variable not defined, og så er 'sh' markeret i linjen 'For Each sh In ActiveWorkbook.Sheets'.

Nogle bud på hvad der kan være galt?

Vh CHC

Hej

Er der nogle bud på, hvorfor jeg med koden i #6 (nedenstående) får en
Compile error: Variable not defined, og så er 'sh' fremhævet med farve i linjen 'For Each sh In ActiveWorkbook.Sheets'.

Sub Farv()
    For Each sh In ActiveWorkbook.Sheets
        If UCase(sh.Range("a10")) = "JA" Then
            sh.Tab.Color = RGB(0, 255, 0)
        ElseIf UCase(sh.Range("a10")) = "NEJ" Then
            sh.Tab.Color = 49407
        Else
            sh.Tab.Color = xlAutomatic
        End If
    Next sh
End Sub

Vh CHC