Koptekst verwijziging specifieke cel

[lekkerbek312]

Is het mogelijk om de inhoud van een bepaalde cel weer te geven in de koptekst van een aantal tabbladen?

In het voorbeeldbestand zijn 4 tabbladen.

Het is de bedoeling dat de inhoud van cel B2 op tabblad TwinCube wordt weergegeven in de koptekst van tabbladen "resultaten" en "balans", maar niet op tabblad "Menu".

Uit een eerder bestand heb ik de volgende code gekopieerd en omgebouwd, maar dan laat hij de naam van de BV levensgroot zien en al helemaal niet als koptekst. Daarnaast pakt hij ieder tabblad.

Sub Printen()
Application.ScreenUpdating = False
'
' PrintSummary Macro
' Print Report
'
' Keyboard Shortcut: Ctrl+p
'
Dim tempSheet As Worksheet
     
    For Each tempSheet In Worksheets
         
        tempSheet.Activate
        
        strNaam = Worksheets("TwinCube").Range("B2").Value
         
        With ActiveSheet.PageSetup
        .CenterFooter = "&""Arial,Vet""&9" & strNaam
        End With
        Next tempSheet
       End If

End Sub

Kan iemand mij op weg helpen?

 

[VenA]

Probeer het eens met deze.

Sub VenA()
For Each sh In Sheets(Array("Resultaten", "Balans"))
    sh.PageSetup.CenterHeader = Sheets("Twincube").[B2].Value
Next sh
End Sub

 

[lekkerbek312]

Probeer het eens met deze.

Sub VenA()
For Each sh In Sheets(Array("Resultaten", "Balans"))
    sh.PageSetup.CenterHeader = Sheets("Twincube").[B2].Value
Next sh
End Sub

Dank, dit is gelukt. Als ik deze aanvul met

"&""Arial,Vet""&9"

dan wordt het ineens levensgroot. Hoe kan ik deze tekst gewoon vet maken in de koptekst?

 

[HSV]

sh.PageSetup.CenterHeader = "&""Arial,Bold""&9" & Sheets("Twincube").[B2].Value

 

[lekkerbek312]

Ja die had ik geprobeerd, maar hij maakt er dan een lettergrootte van 50 van ofzo (in ieder geval heel groot). Heel vreemd.

 

[HSV]

Werkt hier perfect overigens.

 

[HSV]

Heb jij geen "Vet" waar ik "Bold" heb?

 

[VenA]

Wel lastige dingetjes de inhoud of beter de opmaak van kop- en voetteksten. In XL-2007 NL drie dingetjes gedaan die alle drie werken.

Sub VenA()
For Each sh In Sheets(Array("Resultaten", "Balans"))
    sh.PageSetup.CenterHeader = "&""Arial,bold""&9" & Sheets("Twincube").[B2].Value
Next sh
End Sub

Sub VenA1()
For Each sh In Sheets(Array("Resultaten", "Balans"))
    sh.PageSetup.CenterHeader = "&""Arial,Vet""&9" & Sheets("Twincube").[B2].Value
Next sh
End Sub

Sub VenA2()
For Each sh In Sheets(Array("Resultaten", "Balans"))
    If sh.Name = "Resultaten" Then sh.PageSetup.CenterHeader = "&""Arial,Bold""&9" & Sheets("Twincube").[B2].Value _
    Else sh.PageSetup.CenterHeader = "&""Arial,Bold""&25" & Sheets("Twincube").[B2].Value
Next sh
End Sub

 

[HSV]

Mooi dat je het hebt getest VenA.

Dus in het Nederlands werkt het ook gewoon!
Alleen met een Ned. versie van Excel vermoed ik.

 

[lekkerbek312]

Ik had beide (bold en vet) geprobeerd. Ik gebruik de NL versie van Excel 2016. Ik zal morgen op het werk eens proberen met een andere versie in een blanco bestand.

Wel dank beiden voor de suggesties en het meedenken.

 

[lekkerbek312]

Ik heb het getest, maar blijf het probleem houden. Ik maak er geen halszaak van, dus dan maar zonder "vet".

 

[VenA]

Vreemd dat het in Xl-2016 niet lukt. Daarom blijf ik lekker bij de wat oudere versies.:d

@HSV

Alleen met een Ned. versie van Excel vermoed ik.

Zowel in XL-2007 NL als in XL2010 EN werken de codes bij mij.

 

[HSV]

Oké, je krijgt soms geen hoogte van Excel.

We hadden voor een aantal jaren geleden ook zo'n test.
Bij Vw opmaak kan in de NL versie de formule in het Nederlands uitgeschreven worden in vba, maar in een ENG versie moet de formule in het Engels geschreven worden.
Vandaar mijn gedachte.

Maar goed, als het niet lukt bij de Ts, kan ik er verder niets aan doen.
Ik wens hem er het beste mee.