Fil- OG stinavn i sidefod

Du kan bare skrive stien!

Jeps!

Men det er lidt hårdt i længden...Er der ikke en funktion eller.... Man kan jo godt få indsat stinavnet direkte i arket.

admss

Jeg har en makro liggende til formålet.
Interesseret så opgiv mail-adresse eller send en mail til jan_vogt_hansen@hotmail.com.

http://www.exceldeveloper.com/vba052.shtml

Snowball

indsæt denne makro i ThisWorkbook i makroeditoren
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ThisWorkbook
ActiveSheet.PageSetup.LeftFooter = .Path & \"\\\" & .Name & \"--\" & .ActiveSheet.Name
End With
End Sub

Makroen til udskiftning af sidehoved og -fod ser sådan ud:
Data i anførselstegn kan du selvfølgelig udskifte med dine egne.
Makroen indsætter sidehoved og -fod i alle ark i filen.

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 = \"Firmanavn\"
            .CenterHeader = \"Side &P af &N\"
            .RightHeader = \"Udskrevet: &D &T\"
            .LeftFooter = \"Sti: \" & ActiveWorkbook.Path
            .CenterFooter = \"Filnavn: &F\"
            .RightFooter = \"Arknavn: &A\"
        End With
    Next ws
    Set ws = Nothing
    Application.StatusBar = False
End Sub

Hov, der mangler lige denne første linie i koden:
Sub HovedSidefod()

Hej alle!

Tak for hjælpen, der er flere som har hjulpet med et godt svar. Jeg vender tilbage med pointene i løbet af kort tid.

mvh/admss