Avatar billede ritzau Nybegynder
10. november 2004 - 19:43 Der er 2 kommentarer og
1 løsning

Ændring af fanefarve

Hej Alle

Jeg har store problemer med følgende:

Jeg ønsker en makro, som ændrer fanefarven til sort når visse betingelser er opfyldt.

Betingelsen for ændringen er f.eks at ark1 celle A1+C1=2, når denne betingelse er opfyldt skal fanen blive sort, og dette skulle gerne ske automatisk.

Ændringerne skal foretages på hvert enkelt ark, og i et  interval af ark i projektmappen f.eks fra ark 15 til ark 46.

Jeg håber meget der er nogen der kan hjælpe.
Avatar billede carlt Seniormester
11. november 2004 - 12:09 #1
Jeg tror ikke, det er muligt at ændre farven på fanen.
Men var det evt. en mulighed på 'ark1' at lave en oversigt over alle andre ark.
(noget i retning af, at ARK1!a1 bliver sort, hvis ARK2!a1=2)
Avatar billede hugopedersen Nybegynder
11. november 2004 - 14:04 #2
Sheets("Sheet1").Tab.Color = 255  sætter farven på sheet1's fane til rød
Avatar billede ritzau Nybegynder
11. november 2004 - 15:19 #3
Efter nogen søgen er jeg kommet frem til en løsning.
Denne løsning er optimal nok for mig, mange tak for løsningsforslagene. Jeg sender et accepteret svar til "hugopedersen"

Private Sub Worksheet_Change(ByVal Target As Range)
Ark2.Activate
If ActiveSheet.Range("L51") = 2 Then
Ark2.Tab.ColorIndex = 1
ElseIf ActiveSheet.Range("L51") < 2 Then
Ark2.Tab.ColorIndex = 36
End If

End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester