Vraag verwijzing naar voettekst

[olafc]

Beste Allemaal,

Ik zit met een probleem en die is als volgt.

Ik ben bezig met het maken van werkprogramma's, maar ik kom niet verder.

In mijn voorbeeld zie je een Excelsheet met een invoerblad en een werkprogramma.Bekijk bijlage Test Help Mij.xlsx

Alles uit het werkprogramma verwijst naar het invoerblad, alleen wil ik ook dat de voettekst verwijst naar het invoerblad, maar dat lukt niet.

Kan iemand mij alsjeblieft middels een ingevuld voorbeeld, die ik mee stuur de formule laten zien of hoe het werkt.

Ik ben namelijk een leek in Excel.

Vriendelijk bedankt alvast,

Groet Olaf

 

[HSV]

Zet onderstaande code in bladmodule "invoerblad".

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$B$4" Then
   ActiveSheet.PageSetup.CenterFooter = Range("B4").Value
 End If
End Sub

 

[olafc]

Beste Harry,

Excuus maar ik ben echt een leek.

Ik snap er niks van en er gebeurd ook niks....

Kan jij het mij in een ingevoegd voorbeeld laten zien of iets anders?

Bedankt voor de genomen moeite.

Groet Olaf

 

[HSV]

Dag Olaf,

Kopieer de code vanaf forum.
Rechtermuisklik op tabje "Invoerblad" → Programmacode_weergeven.
Plak de code in het grote witte vlak.
VBE sluiten met Alt+F11 of Alt+Q of het kruisje.

Als je nu cel B4 veranderd van tekst, komt deze tekst in de voetnoot.

 

[olafc]

Beste Harry,

Duidelijke uitleg, bedankt daarvoor.

Er gebeurd alleen niks met de voettekst.

De bedoeling is dat als ik op het invoerblad een nummer of tekst invul, dat het automatisch op alle andere werkprogramma's komt te staan in de voettekst.

Als je het voorbeeld bekijkt, zie je 1 invoerblad en 1 werkprogramma.

In realiteit worden het veel meer werkprogramma's, waarin de voettekst automatisch moet veranderen als ik dat op het invoerblad invul.

Enig idee hoe ik dat voor elkaar krijg?

Groet Olaf

 

[HSV]

Heb je macro's wel ingeschakeld?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
 If Target.Address = "$B$4" Then
  For Each sh In Sheets
    sh.PageSetup.CenterFooter = Range("B4").Value
   Next sh
 End If
End Sub

 

[olafc]

Beste Harry,

Hij werkt!!

Super bedankt!

Fijne avond