Ik heb de volgende code gemaakt, die precies doet wat het moet dan namelijk vier verschillende waardes ophalen en deze op 4 verschillende werkbladen in de koptekst zetten.
Wat mij niet lukt is om het dan ook nog in de juiste opmaak te krijgen. Ik wil het graag in Arial, vetgedrukt, fontsize 14. Ik weet dat ik dan iets moet dan met "&B &14 &Arial, maar dan stopt mij code bij het aanhalingsteken voor y34.
Hoe moet ik dit oplossen. Onderstaand mijn code tot nu toe.
Sub Header()
rnUpdateLijst.PageSetup.CenterHeader = rnLijsten.Range("y34").Value
rnHullVerzekeringen.PageSetup.CenterHeader = rnLijsten.Range("y35").Value
rnIVverzekeringen.PageSetup.CenterHeader = rnLijsten.Range("y36").Value
rnWARverzekeringen.PageSetup.CenterHeader = rnLijsten.Range("y37").Value
End Sub
Alvast bedankt
Wat mij niet lukt is om het dan ook nog in de juiste opmaak te krijgen. Ik wil het graag in Arial, vetgedrukt, fontsize 14. Ik weet dat ik dan iets moet dan met "&B &14 &Arial, maar dan stopt mij code bij het aanhalingsteken voor y34.
Hoe moet ik dit oplossen. Onderstaand mijn code tot nu toe.
Sub Header()
rnUpdateLijst.PageSetup.CenterHeader = rnLijsten.Range("y34").Value
rnHullVerzekeringen.PageSetup.CenterHeader = rnLijsten.Range("y35").Value
rnIVverzekeringen.PageSetup.CenterHeader = rnLijsten.Range("y36").Value
rnWARverzekeringen.PageSetup.CenterHeader = rnLijsten.Range("y37").Value
End Sub
Alvast bedankt