Meerdere celverwijzigingen in 1 koptekst

[Bouwkundige]

Beste,

Ik zou graag willen dat er meerdere regels in de Leftheader komen te staan, onder elkaar:

Celverwijzing naar X1
datum: celverwijzing naar X2
projectnummer: celverwijzing naar X3
blad: Pagina van Pagina's

Nu heb ik onderstaande VBA al in ThisWorkbook zitten:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = "&""Calibri""&7 " & "datum " & "&""Calibri""&10 " & Range("X2")
End With
End Sub

Ik krijg het alleen niet voor elkaar om meerdere teksten erin en onder elkaar te krijgen. Kan dat überhaupt?

 

[edmoor]

Een nieuwe regel kan je invoegen met & vbCrlf

 

[Bouwkundige]

Super, brengt me een stapje dichterbij.

Ik heb nu

.LeftHeader = "&""Calibri""&7 " & "datum" & "&""Calibri""&10 " & Range("X2") & vbCrLf & "&""Calibri""&7 " & "projectnummer" & "&""Calibri""&10 " & Range("X3")

De tekst projectnummer komt nu wel op een regel er onder, echter zit er een lege regel tussen.
Heb ik ergens een fout gemaakt?

 

[edmoor]

Je kan proberen of vbCr voldoende is in plaats van vbCrLf.

 

[Bouwkundige]

Het gaat goed, totdat ik de 4e zin wil toevoegen. Dan werkt het niet meer. Deze heb ik dan maar in de voettekst geplaatst. Of je moet nog een oplossing weten???

In ieder geval bedankt zo ver.

 

[Haije]

en wat gebeurt er als je ipv VbCrLf gebruik maakt van VbLF of chr(10)?

 

[edmoor]

Volgens mij kan je maximaal 255 tekens als header tekst kwijt.
Misschien dat je daar overheen gaat?