Kleur tabblad

[Henri5]

Hallo,

ik geef (tabblad) blad3 een kleur bv rood hoe krijg ik deze kleur gelinkt aan de het blad in een ander excel bestand?

 

Alvast bedankt

 

[Haije]

Henri, wat bedoel met "gelinkt aan"?

[Henri5]

Hallo,

wat ik juist bedoel ik ga het proberen uit te leggen. zie bijlage

In bijlage 22.jpg kleur ik de tab van blad3 rood.

nu wil ik dat hij (zie bijlage 33.jpg)  automatisch de kleur overneemt in een cel in een ander bestand

Groeten

 

[Haije]

En wat is de reden dat je dit wilt?

[Henri5]

Beste,

Om een overzicht te krijgen van alle excel bestanden,

stel ik heb een exel bestand met 10 tabbladen in telkens als ik iets afwerkt kleur ik de tab (blad) groen of rood zo heb ik een aantal bestanden, om niet alle exel bestanden te openen maak ik een overzicht waar de kleur van de tab (blad) automatisch gekleurd wordt

in een cel zo weet ik wat afgewerkt is en wat niet.

 

Groetjes Henri

[alpha]

Als je een blad hebt bijgewerkt kun je met deze macro de tab rood kleuren en in een ander bestand vastleggen welk bestand en welk blad het was. Pad en bestandsnaam moet je natuurlijk aanpassen aan je eigen situatie.

Sub macro1()
Dim wbook As Workbook
With ActiveSheet.Tab
If .ColorIndex = 3 Then
Exit Sub
Else
.ColorIndex = 3
End If
End With
Set wbook = Workbooks.Open("C:\Documents and Settings\Eigenaar\Mijn Documenten\mijnbestand.xlsx")
With wbook.Sheets("Blad1")
.Range("a" & .Range("a1").CurrentRegion.Rows.Count + 1).Value = _
ThisWorkbook.Name & " " & ThisWorkbook.ActiveSheet.Name & " is bijgewerkt."
End With
wbook.Close savechanges:=True
End Sub

[Henri5]

Alpha,

bedankt het werkt, nu krijg ik op mijn ander blad deze tekst te zien (test.xlsm Blad1 is bijgewerkt.) kan ik ook de tekst veranderen in een kleur zodat hij die cel inkleurt?

 

groetjes Henri

[alpha]

Natuurlijk kan dat, maar het valt me wel tegen dat je dat na bovenstaand voorbeeld zelf niet kunt.

Ook op internet kun je dat heel snel vinden, maar je leert het meest door het zelf proberen uit te zoeken.

Vervang dit:

.Range("a" & .Range("a1").CurrentRegion.Rows.Count + 1).Value = _
ThisWorkbook.Name & " " & ThisWorkbook.ActiveSheet.Name & " is bijgewerkt."

door dit:

.Range("a" & .Range("a1").CurrentRegion.Rows.Count + 1).Interior.ColorIndex = ...

Op de plaats van de punten kies je een getal van 1-56.

[Henri5]

Bedankt voor uw snel antwoord maar ik ben maar een leek er in, heel blij met de oplossing

 

groetjes Henri

[alpha]

4 minuten geleden, Henri5 zei:

ik ben maar een leek...

Zo begint iedereen, maar als je er wat in verdiept leer je snel bij.