dezelfde voettekst

[Inekebeu]

hallo allemaal,

Ik heb elke week bij ca 20 bestanden altijd dezelfde (verklarende) voettekst nodig, bestaande uit meerdere regels.

De (linker) voettekst zou er bijv. altijd zo uit moeten zien:
10=individueel
20=collectief
30=kan beide
40=geen van beide

en

De (rechter) voettekst bijv als volgt:
1 = rekening courant
2 = op nota


Nu doe ik dat nog met het handje (heel geestdodend).

Ik heb bij het zoeken de macro van Heesterbeek van 25.8.2005 gevonden:

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


Dat werkt zeker, maar dan moet ik altijd bovengenoemde teksten in een cel zetten. Is het ook mogelijk dit er gewoon keihard in te zetten?

Heb al het e.e.a. geprobeerd, maar dan krijg ik foutmeldingen.

Alvast bedankt,

gr.
Ineke

 

[Wigi]

Ineke

Is het ook mogelijk dit er gewoon keihard in te zetten?

Voor jou zal ik dat er eens KEIHARD inrammen :thumb: Hou u vast hé

Sub VoetTekstAanpassen()
With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""
    .LeftFooter = "10=individueel" & vbCr & "20=collectief" & vbCr & "30=kan beide" & vbCr & "40=geen van beide"
    .CenterFooter = ""
    .RightFooter = "1 = rekening courant" & vbCr & "2 = op nota"
End With
End Sub

Greetz

Wigi

 

[Inekebeu]

Bedankt Wigi; scheelt weer hoop vervelende werkjes.