voettekst

[stefano]

Kan ik in een voettekst een formule inbrengen ?

Ik wil naargelang de inhoud van een cel in een dokument de voettekst aanpassen naar de inhoud van die cel.

dbv,

Stefano

 

[jheesterbeek]

Met een macro kan (bijna) alles. Onderstaande macro plaats de tekst in cel A1 links ondering de voettekst

Sub VoetTekstAanpassen()
'
Dim VoetTekst
VoetTekst = ActiveSheet.Range("A1").Value 'de cel waar de voettekst tekst in staat

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = VoetTekst
.CenterFooter = ""
.RightFooter = ""
End With
End Sub

Succes
John