Fil- og Stinavn

Denne kode indsætter både Header og Footer for alle ark i filen og den indsætter også den fulde sti til filen.
Så kan du selv \"plukke\" det du skal bruge.


Sub InsertHeaderFooter()
\' inserts the same header/footer in all worksheets
Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        Application.StatusBar = \"Changing header/footer in \" & ws.Name
        With ws.PageSetup
            .LeftHeader = \"Company name\"
            .CenterHeader = \"Page &P of &N\"
            .RightHeader = \"Printed &D &T\"
            .LeftFooter = \"Path : \" & ActiveWorkbook.Path
            .CenterFooter = \"Workbook name &F\"
            .RightFooter = \"Sheet name &A\"
        End With
    Next ws
    Set ws = Nothing
    Application.StatusBar = False
End Sub

Hvordan tildeles makroen til alle fremtidige mapper, ligesom man i word kan gemme makroer i normal.dot?

Når du gemmer regnearket med makroen tilknyttet, skal du vælge at gemme som et tilføjelsesprogram (*.xla).
Hvis du så vil have, at porgrammet starter op sammen med Excel, skal du vælge FUNKTIONER -> TILFØJELSESPROGRAMMER og så \"akrydse\" programmet.

En anden - og måske mere anvendelig måde i denne situation - er at gemme makroen i den personlige makrofil: personal.xls.
Den starter altid op sammen med Excel (skjult).

Den ligger normalt i: C:\\PROGRAMMER\\MICROSOFT OFFICE\\OFFICE\\XLSTART.

Så kan du også koble den på en knap eller lignende.