Faneblads farve betinget af feltværdi

http://pmexcelent.dk/changes.xls

svar

Undskyld det sene svar har været i udlandet hele ugen.
Jeg kan godt se at dette virker men kan det gøres pr. automatik hver gang der sker en ændring? (uden at jeg skal taste noget for at se at der er ændret)

makro som spørger om ark nr. er blot med for at demonstrere demoen
denne skal naturligvis ikke med i dit projekt
jeg går ud fra at dine databaseopdateringer får fanebladene til at
ændre farve.

obs nyt navn: (changes2)

http://pmexcelent.dk/changes2.xls

de 2 følgende makroer skal ligges ind i alle arks kodemodul
du skal blot ændre arknavnene i makroerne til de aktuelle (dine)

Private Sub Worksheet_Activate()
ActiveWorkbook.Sheets("Ark1").Tab.ColorIndex = 15
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.Sheets("Ark1").Tab.ColorIndex = 3
End Sub

sig til hvis jeg skal hjælpe med at indsætte makroerne

Jeg har lagt koden på hvert ark under "VBAProject (Mappe1.xls)"Microsoft Exel Objects" "Ark1 (Ark1) til "Ark3" (Ark3)
For at teste koden har jeg et "Ark4" der opdaterer ind i Ark1 til 3. Men dette giver ikke en farveændring. Hvis jeg derimod ændre i div. faner sker der en farveændring
Er det mig der ikke har lagt koden rigtigt??

hvor helt præsis har du lagt koden ?

Hvis jeg højreklikker på fanebladene og viser koden i changes2.xls er koden lagt nøjagtigt som dit.

ok det lyder som det rigtige sted

hvad gør du helt præsis i Ark4, - det kunne jo tyde på der ikke sker ændring i de øvrige ark siden farven ikke ændres

her er min makro som laver ændring i de øvrige ark
Sub Makro1()
Dim x
x = InputBox("Vælg Ark nr.: ")
Sheets("Ark" & x).Range("a1").Value = ""
End Sub

Jeg har somend bare lavet en =Ark4!A1, =Ark4!B1 og =Ark4!A3 i Ark4 der derved indsætter i Ark1/2/3 hvad jeg skriver i Ark4 A1/2/3

Ikke i Ark4 som skrevet men i Ark1 står =Ark4!A1 etc.

nå ok det tror jeg ikke den kan registrere
har du prøvet ved databaseopdatering ?

Nej men jeg giver det et forsøg senere, Du hører fra mig.

Så fik jeg prøvet det, men det var ingen succes! Farvemarkering sker hver gang der opdateres og ikke kun ved rettelser.

så kan jeg desværre ikke hjælpe

Og dog, hvis jeg forstår dit indlæg rigtigt så registrerer makroen alle opdateringer.
Så skal vi blot teste om der er sket ændring i det aktuelle område.
Det gørs med følgende linie :

If Intersect(Target, Range("C1:H100")) Is Nothing Then Exit Sub

Den tester i område C1:H100 for evt. ændringer, - rettes til dit aktuelle område
(det område der kan forekomme ændringer i ved databaseopdateringer)

Linien indsættes i alle ark i denne makro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1:H100")) Is Nothing Then Exit Sub
ActiveWorkbook.Sheets("dit arknavn").Tab.ColorIndex = 3
End Sub

Jeg kan godt se meningen med den kode, men den skifter stadig til rødt faneblad, ved hver opdatering, selv om der ikke er ændringer i arket.

ok sidste bud (går ud fra du har rettet område til hvor ændringer kan komme)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1:H100")) Is Nothing Then
Exit Sub
End if
ActiveWorkbook.Sheets("dit arknavn").Tab.ColorIndex = 3
End Sub

prøv evt. også lige denne (allersidste bud) :-)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1:H100")) ="" Then
Exit Sub
End if
ActiveWorkbook.Sheets("dit arknavn").Tab.ColorIndex = 3
End Sub

Samme resultat det må være excel der ikke kun opdaterer ændringer men åbenbart hele arket.

hmm ja måske - kan ikke greje den

jeg vil foreslå, at du selv lægger et svar, og så kan du evt.
oprette spørgsmål igen- måske er der nogen som har erfaring med dette.

Det gør jeg mentak for hjælpen!!