sidehovede og sidefod i Excel

Der er en del muligheder. Hvilken version af Excel bruger du.

Excel 2000

Ja, hvis du bruger en makro hertil ellers ikke.

Makro er fint. Kan du stykke en sammen til mig?

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

Den kunne se således ud:

Sub HeaderFooter()
    With Worksheets(\"Ark1\").PageSetup
        .LeftHeader = \"\"
        .CenterHeader = \"\"
        .RightHeader = \"\"
        .LeftFooter = \"\"
        .CenterFooter = \"\"
        .RightFooter = \"\"
    End With
End Sub

Ikke fordi, jeg ikke er interesseret Jan, men Ekspertens regler siger, at løsninger skal være tilgængelige for alle Ekspertens brugere, så hvis du vil have points, så læg makroen her :-)

Eller således:

Sub HeaderFooter()
    With Worksheets(\"Ark1\").PageSetup
        .LeftHeader = \"\"
        .CenterHeader = Worksheets(\"Ark1\").Range(\"A1\")
        .RightHeader = \"\"
        .LeftFooter = \"\"
        .CenterFooter = \"Peter og hans høns\"
        .RightFooter = \"\"
    End With
End Sub

martin_schou>> hvor er jeg dog enig - alt skal vises her.

Ok, så kommer den her:

Sub HovedSidefod()
\'
\' Indsætter dynamisk hoved og sidefod på alle ark.
\'
Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        Application.StatusBar = \"Ændrer sidehoved og -fod i \" & ws.Name
        LH = [d13].Value
        CH = [d14].Value
        RH = [d15].Value
        LF = [d16].Value
        CF = [d17].Value
        RF = [d18].Value
       
       
        With ws.PageSetup
            .LeftHeader = LH
            .CenterHeader = CH
            .RightHeader = RH
            .LeftFooter = LF
            .CenterFooter = CF
            .RightFooter = RF
        End With
    Next ws
    Set ws = Nothing
    Application.StatusBar = False
End Sub

Jeg viser gerne alt det, som nu kan lade sig gøre på Eksperten.
Ekspertens layout/brugerflade er bare ikke velegnet til alt.

Flemming:
hvis jeg smider den ind i programkoden til det pågældende ark, får jeg følgende fejl:
Compile error:
Expected: end of statement

for hver linje med footer/header.
Hvad gør jeg forkert? Jeg er ikke bekendt med makroer ... ret meget.

Skal makroen placeres i programkoden for arket eller workbook?

Min kode indsætter værdierne fra D13 til D18 i alle ark.

Fjern Worksheets(\"Ark1\"), så du kun har Range

Fandt fejlen. Det er noget andet end mellemrum, der bliver kopieret her fra siden.

Jeg prøver lige din store makro, inden du får nogle points :-)

Btw - hvordan får jeg den til at gøre det automatisk, f.eks. ved start af arket?

Du ligger koden under ThisWorkbook hændelsen:
Private Sub Workbook_Open()

I får begge points ... det er vel det mest fair. I kan få ½ point til deling ... eller sådan noget ;-)

:-)

:-)

Hmm ... hvis jeg henter input fra en dato i formatet \"01-01-2001\", kan det så formateres til et andet datoformat som f.eks. \"Mandag den 1. Januar 2001\"?

Det er vist en helt andet problem ...
Ja, med en lang formel kan det godt lade sig gøre.

Det kunne f.eks. gribes an således:

Dim sDato As String
    sDato = Format(Range(\"A1\"), \"dddd \"\"den \"\" d.  mmmm yyyy\")
    sDato = UCase(Left(sDato, 1)) & Mid(sDato, 2, sDato - 1)

sæt den aktuelle Heater eller Footer = sDato

Takker ... nu jeg alligevel nasser, hvordan sætter jeg et linjeskift ind i teksten?

\"din tekst\" & Chr(10) & \"din næste tekst\"

Fino :-)

Har lige et problem.

De data, jeg skal bruge til at lave sidehoved og -fod med, bliver først hentet ind i arket EFTER makroen til at lave sidehoved og -fod er kørt.

Hvordan løser jeg det problem, så makroen køres EFTER data er hentet ind i arket?

Sub AfterOpen ?

>>>flemming
Der er en fejl i din dato-formateringskode i den sidste linie.

Jeg tror den korrekte kode skal være noget i retning af:
Dim sDato As String
  sDato = Format(Range(\"A1\"), \"dddd \"\"den \"\" d.  mmmm yyyy\")
  sDato = UCase(Left(sDato, 1)) & Mid(sDato, 2, Len(sDato) - 1)

Hvordan hentes data ind?

>>>jan
du har ret, jeg har kun tænkt mig til LEN :-) en forglemmelse ved skrivningen

Mener du hvordan får jeg fat i Range(\"A1\") - under format linien - prøv engang - det virker.

Sidehoved og sidefod bruges normalt kun i forbindelse med udskrift.

Derfor vil du med fordel kunne anvende hændelsen:
Private Sub Workbook_BeforePrint(Cancel As Boolean)

.... altså lige før du udskriver.

Data hentes ind via en MASSE databaseforespørgsler ... 8 styk for at være præcis.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

virker vel også ved print preview?

.... og placere koden til sidehoved og sidefod der.

BeforePrint har ikke noget med Print preview at gøre, såvidt jeg husker.

Jeg takker af nu.

BeforePrint virker fint ved Print Preview.

Heeey! Det var en rigtig god funktion du havde der janvogt.
Kan den udvides til at tage værdien fra et ark og poste i headeren på en anden fil?

F.eks.
FIL1.XLS  d13  bliver indsat i FIL2.XLS header?