VBA code alleen uitvoeren op bepaalde excel-tabbladen

[combinatietang]

Met onderstaande code worden de kopteksten van alle excel-tabbladen aangepast.
Ik wil echter dat alleen de kopteksten worden aangepast die een kopie zijn van tabblad "Sjabloon A".
Zie voorbeeldbestand. Ik hoop dat iemand mij kan helpen.

Sub KopVoetteksten()
For Each sheet In ActiveWorkbook.Sheets
With sheet.PageSetup
.RightHeader = "&""Calibri,vet""&9&K002060" & Sheets("Bron").[KoptekstR].Value
End With
Next sheet
End Sub

 

[edmoor]

Zoiets:

Sub KopVoetteksten()
    For Each sheet In ActiveWorkbook.Sheets
        If Left(sheet.Name, 8) = "Sjabloon" Then
            With sheet.PageSetup
                .RightHeader = "&""Calibri,vet""&9&K002060" & Sheets("Bron").[KoptekstR].Value
            End With
        End If
    Next sheet
End Sub

 

[combinatietang]

Reactie op Edmoor

Dag Edmoor,

Jouw oplossing werkt niet omdat de tabbladnamen worden aangepast nadat ze gekopiëeerd zijn.

In de VBA-projectmap zie ik dat de tabbladen de volgende twee eigenschappen hebben.
(name) en name

Jouw oplossing verwijst naar de eigenschap name. Dit is de tabbladnaam.
Als je zou kunnen verwijzen naar de eigenschap (name), dan werkt jouw oplossing mogelijk wel. Is dat mogelijk?

 

[edmoor]

Wijzig dan sheet.Name in sheet.CodeName

 

[HSV]

Plus de lengte van 8 naar 9 met een toevoeging van een A achter "Sjabloon"

 

[combinatietang]

Dag Edmoor,

Code aangepast, getest en het werkt. Hartstikke bedankt!!

 

[combinatietang]

Dag Harry,

Lengte aanpassen had ik inderdaad gezien, maar ik heb nog een klein schoonheidsvraagje. In de code staat nu een kleurcode, maar eigenlijk wil ik de RGB-code. De kleurcode heb ik bepaald met "macro opnemen", maar de RGB-kleur is toch iets anders.

 

[edmoor]

Waarom zou je dat willen?
Maar kijk hier eens:
https://excelribbon.tips.net/T010180_Determining_the_RGB_Value_of_a_Color.html

 

[combinatietang]

RE: Edmoor

Dag Edmoor,

Ik had op internet meer oplossingen voor RGB-codes gevonden, maar die kreeg ik niet werkend in mijn vba-code.
De pagina waar jij naar verwees, heb ik uitgeprobeerd, maar die gaf dezelfde kleurcode terug die ik al had.
Dit is bij benadering goed (bedrijfskleuren), en dus laat ik het daarbij.
Nogmaals bedankt voor het meedenken.