Koptekst in Excel

[johnkiwi]

Ik ben bezig een koptekst te maken(zie file) zodat de documentnaam zonder extensie er komt te staan, dat hij dus daar onder(printversie)Bekijk bijlage test oplopend nummer (2).xlsm er steeds een bij telt, daar onder pagina nummers en daar onder de datum in yyyy-mm-dd

groet John

 

[tecsman]

Heb je een vraag?

 

[robdgr]

Lijkt me: hoe gaat dat geautomatiseerd?

 

[johnkiwi]

klopt helemaal de vraag is hoe krijg ik dit geautomatiseerd??

 

[xmlfan]

Een stukje van het anwtoord:
http://www.worksheet.nl/forumexcel/vragen/68405-opvolgend-nummer-koptekst.html

 

[robdgr]

Zelfde vraag van zelfde vraagsteller. Sommige fora zijn daar niet gek op.

 

[johnkiwi]

Ik wist niet dat het een probleem is als je dezelfde vraag op div. fora zet.
Het gaat om het resultaat denk ik.

 

[robdgr]

Niet helemaal. Als je een verwijzing plaatst, zoals anderen nu hebben gedaan, gaan er niet op twee plaatsen mensen aan de slag, die misschien met hetzelfde resultaat komen.

Een stukje van het antwoord:
http://www.worksheet.nl/forumexcel/vragen/68405-opvolgend-nummer-koptekst.html

De vraag bij Worksheet is al verwijderd. Het lijkt me goed als je de daar gegeven code hier plaatst.

 

[johnkiwi]

ok daar kan ik je wel gelijk in geven.
Maar dit is dus wat ik eigenlijk wil in mijn koptekst(rechts).

Naam = xxxxxx (bestandsnaam zonder extentie)
Versie = 1 (opvolgend elke keer als ik hem bewaar)
Pagina = 1 - x

Is het mogelijk dat in de voettekst de inhoud van een cel komt te staan?
bv.: in C35 staat Janssen(kan dit in de voettekst overgenomen worden?

author: Janssen

groet John

 

[johnkiwi]

ben er al uit

 

[robdgr]

Kun je hier voor geïnteresseerden melden hoe je het hebt opgelost?

 

[johnkiwi]

ok zo ongeveer

 Private Sub Workbook_Open()
    Blad1.Cells(7, 4).Value = Blad1.Cells(7, 4).Value + 1
    ActiveSheet.PageSetup.LeftHeader = "&""Arial""&12&BTekst&B" & Chr(13) & "&8Print date" & Chr(13) & "&D"
    ActiveSheet.PageSetup.CenterHeader = "&12&B" & ActiveSheet.Range("C7")
    ActiveSheet.PageSetup.RightHeader = "&8Document nr.: &F" & Chr(13) & "Version : 1." & ActiveSheet.Range("D7").Value & Chr(13) & "Page : &P / &N " & Chr(13) & "Relaease date : 2011-04-30"
    ActiveSheet.PageSetup.LeftFooter = "&8Owner : Pietje" & Chr(13) & "Auther : " & ActiveSheet.Range("C35").Value
    ActiveWorkbook.Save
End Sub

 

[huijb]

@robdgr
Ik heb nu al ik weet niet hoeveel posts van jou moeten aanpassen omdat je maar door blijft gaan met onnodig quoten. Dus hierbij nog éénmaal, het is niet nodig om direct na een reactie te quoten. Doe je dat ook wanneer je met iemand praat, alles na zeggen voor je antwoord geeft.

 

[robdgr]

Ik weet ook niet hoeveel, want dit is voor mij de eerste melding. Een eerder signaal had je werk gespaard.