sidefod

Arknavnet kan sagtens indsættes - Vælg det sidste sidste ikon i custom footer. På engelsk er koden &[Tab]

Fra Excel hjælpen:
You cannot insert graphics or cell references in a header or footer. Use print titles if you want to repeat cell contents or a graphic on every printed page.

Ja, jeg ved godt at det er snyd at kigge i hjælp :-)
Så nej, du kan ikke indsætte referencer til en celle i en sidefod

Man kan snyde lidt ved at:

I det ark, hvor du vil bruge koden, der smidder du en lignende kode som denne her i arkets kode modul, og så vil Footeren ændres hver gang din celle ændre sig.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rFooter As Range
    Set rFooter = Range(\"D12\")
   
    If Not Intersect(Target, rFooter) Is Nothing Then
        With ActiveSheet.PageSetup
            .LeftFooter = rFooter
            .CenterFooter = \"\"
            .RightFooter = \"\"
        End With
    End If

Set rFooter = Nothing
End Sub

Koden er vist før vist her på eksperten og jeg havde heldigvis gemt den

Makroen viser værdien for celle D12, det kan du jo selvfølgelig ændre. Jeg fandt det gamle spørgsmål:

http://www.eksperten.dk/spm/60054

Kunne du bruge det??

avalon, afslutter du ikke lige spørgsmålet?

hvis jeg gerne vil bruge det på flere ark, er jeg så nødt til at indsætte det i hvert ark's kode?

Tror jeg er dog ikke sikker

jeg kan ikke få det til at virke. Gør jeg noget forkert:
Jeg starter vb-editoren
Åbner kodemodul til arket ved at dobbeltklikke på arket i editoren
Indsætter teksten fra dit svar og udskifter cellereferencen med min celle (B3)

Prøv at ændre værdien i celle b3. se om det ændre sig

Måske er det fordi koden ovenfor har ændret sig på Eksperten.
Der er kommet nogle "\" ....

Prøv:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rFooter As Range
    Set rFooter = Range("D12")
   
    If Not Intersect(Target, rFooter) Is Nothing Then
        With ActiveSheet.PageSetup
            .LeftFooter = rFooter
            .CenterFooter = ""
            .RightFooter = ""
        End With
    End If

Set rFooter = Nothing
End Sub

Rigtig jan tænkte ikke lige så langt

ja nu virker det, tak skal I have. Så må I dele pointsene.

hov Jan du har kun kommenteret

Jan, hvis du vil have din halvdel, så smid et svar

Det er ok :-)