Excel header

Ja

Ja, prøv under File - Page Setup - Header/Footer - Custom Footer og Custom Header.

De kan også rettes via VBA

Rikke Ploughgaard??

Du kender min kusine ?

Søren Schmidt??

Ja tak til Jer begge.
Men det jeg ønsker er at kunne tilføje mine egne opstillinger i den rulleskakt der viser standard-muligheder.
Hvis vi skal ind på VBA, vil jeg gerne have et forslag.

.. er din fætter, og en af mine bedste venner

=> wanky: Den mulighed har jeg aldrig hørt om.

=> cthun: hils i silkeborg eller hvor søren måtte være nu.

Det skal jeg gøre!

Hilsen til Rikke, Søren med flere.
Fremover modtager jeg kun forslag til mit \"lille\" spørgsmål om header/footer.

Ro på lille ven!

Du kan evt. lave en makro som indstiller header/footer som du ønsker den, og så koble den på en værktøjsknap på menuen.
Det vil være mindst lige så elegant.

hej wanky

Der kan laves mange forskellige løsninger med VBA hertil.
Det som du skal have fat i kunne lige dette her, hvor du blot indsætter noget andet end wanky :-)

Sub HeadFoot()
    ActiveSheet.PageSetup.LeftFooter = \"wanky\"
    ActiveSheet.PageSetup.CenterFooter = \"wanky\"
    ActiveSheet.PageSetup.RightFooter = \"wanky\"
   
    ActiveSheet.PageSetup.LeftHeader = \"wanky\"
    ActiveSheet.PageSetup.CenterHeader = \"wanky\"
    ActiveSheet.PageSetup.RightHeader = \"wanky\"
End Sub

Der kan laves flere muligheder, f.eks. kunne makro\'en starte med, at bede om et tal 1-5, og så kunne makro\'en indeholde 5 forskellige opsætninger. Eks kommer lige om lidt.

Der mangler selvfølgelig et lille check på, at der bliver tastet et tal ind i inputbox\'en, men ideen kan løse din problematik.

Det kan f.eks. laves som et tilføjelsesprogram, med sin egen menu eller værktøjslinie, så det kan bruges i alle regneark.

Sub HeadFoot()
Dim sSvar As String
    On Error Resume Next
    sSvar = InputBox(\"Vælg opsætning 1 - 5\", \"Valg af opsætning\")

    Select Case CInt(sSvar)
        Case 1
            ActiveSheet.PageSetup.LeftFooter = \"\"
            ActiveSheet.PageSetup.CenterFooter = \"\"
            ActiveSheet.PageSetup.RightFooter = \"\"
            ActiveSheet.PageSetup.LeftHeader = \"\"
            ActiveSheet.PageSetup.CenterHeader = \"\"
            ActiveSheet.PageSetup.RightHeader = \"\"
        Case 2
            ActiveSheet.PageSetup.LeftFooter = \"\"
            ActiveSheet.PageSetup.CenterFooter = \"\"
            ActiveSheet.PageSetup.RightFooter = \"\"
            ActiveSheet.PageSetup.LeftHeader = \"\"
            ActiveSheet.PageSetup.CenterHeader = \"\"
            ActiveSheet.PageSetup.RightHeader = \"\"
        Case 3
            ActiveSheet.PageSetup.LeftFooter = \"\"
            ActiveSheet.PageSetup.CenterFooter = \"\"
            ActiveSheet.PageSetup.RightFooter = \"\"
            ActiveSheet.PageSetup.LeftHeader = \"\"
            ActiveSheet.PageSetup.CenterHeader = \"\"
            ActiveSheet.PageSetup.RightHeader = \"\"
        Case 4
            ActiveSheet.PageSetup.LeftFooter = \"\"
            ActiveSheet.PageSetup.CenterFooter = \"\"
            ActiveSheet.PageSetup.RightFooter = \"\"
            ActiveSheet.PageSetup.LeftHeader = \"\"
            ActiveSheet.PageSetup.CenterHeader = \"\"
            ActiveSheet.PageSetup.RightHeader = \"\"
        Case 5
            ActiveSheet.PageSetup.LeftFooter = \"\"
            ActiveSheet.PageSetup.CenterFooter = \"\"
            ActiveSheet.PageSetup.RightFooter = \"\"
            ActiveSheet.PageSetup.LeftHeader = \"\"
            ActiveSheet.PageSetup.CenterHeader = \"\"
            ActiveSheet.PageSetup.RightHeader = \"\"
    End Select
End Sub