datum in koptekst: dddd dd mmmm JJJJ

[JoaoFrancisco]

Kan men de datum weergeven in koptekst volgens volgende "dddd dd mmmm JJJJ" en als het mogelijk is hoe doe je dat dan?

Alvast bedankt,

João

 

[JanBG]

Ja,

Via celeigenschappen:

 

[HSV]

sub hsv()
 sheets(1).pagesetup.leftheader = format(date,"dddd dd mmmm yyyy")
end sub

 

[JoaoFrancisco]

Bedankt voor beide snelle reacties.

Maar ik krijg het niet voor elkaar, zowel niet via celeigenschappen als via VBA.


Ik zou een voorbeeldje willen bijvoegen maar ik vind niet direct hoe?


Vriendelijke groeten,

João

 

[Senso]

Kies bij de editor onderaan > Ga geavanceerd en dan klik op de paperclip in de balk en dan verschijnt een venster waarin je een bestand kunt uploaden en toevoegen in de editor.

 

[JoaoFrancisco]

Super bedankt voor je ultra snelle reactie.:thumb:

Het voorbeeldje in bijlage.

Vriendelijke groeten,

João

 

[JanBG]

Zo

 

[JoaoFrancisco]

Ja natuurlijk is dat goed maar ik had het graag in de koptekst willen zien staan.

Toch bedankt voor je hulp en mede denken.

Vriendelijke groeten,

João

 

[Senso]

Die macro van HSV werkt prima. Je ziet de koptekst pas staan als je Afdrukvoorbeeld kiest.

 

[JoaoFrancisco]

Het zal wel aan mij liggen maar ik zie de koptekst niet staan in het afdrukvoorbeeld.
Ben niet zo een kei 'weet er eigenlijk niet veel over' in VBA. Waarschijnlijk staat de code van HSV op een verkeerde plaats.


Vriendelijke groeten,


João

 

[Senso]

Bekijk bijlage datum koptekst3.xlsm
Ik heb het document gewoon gedownload en vergeleken met de regel(s) van HSV en toen geactiveerd. Stond één m te weinig. Maar jij had een andere tekst ingevoerd.

Ik zal deze wel uploaden. Even geduld a.u.b. Kijk dan maar onder afdrukvoorbeeld.
Maak de koptekst leeg en voer de macro opnieuw uit dan staat die er weer.

 

[JoaoFrancisco]

Ja, had al een andere code gevonden op het net, maar aan die 'm' te weinig zal het toch niet liggen.

In mijn laatste voorbeeld staat de code van HSV en toch krijg ik geen koptekst.


Vriendelijke groeten,


João

 

[Senso]

Dan zal ik wel kunnen toveren, want ik heb geen verstand van Excel, maar kan wel exact kopiëren wat HSV schrijft. Als er dan een fout in zou zitten dan zou het mij nooit lukken. Let wel op dat klakkeloos overnemen van internet totaal fout kan zijn. Daar heb je echt deskundigen van dit forum voor nodig.

 

[AlexCEL]

Klik, in het bestandje uit post #11:
- ofwel in menu Bestand op afdrukken;
- ofwel in menu Beeldop pagina-indeling;
in beide gevallen zie je dan de gewenste datum bovenaan de pagina in de koptekst staan.

Zoek je niet toevallig titelblokkering, dus dat elke pagina begint met dezelfde rijen?

 

[JoaoFrancisco]

Sorry voor de overlast die ik jullie bezorg maar het is mij nog steeds niet gelukt. Ik heb nogmaals een voorbeeldje bijgevoegd. De code van HSV heb ik ingevoerd maar waarschijnlijk op een verkeerde plaats.

Nogmaals mijn excuses voor mijn stuntelige vraag.


Vriendelijke groeten,


João

 

[Senso]

Waarom gebruik je dan niet het bestand uit post 11?

1. Openen
2. via > Invoegen > Koptekst en voettekst dan koptekst deleten in document
3. Document opslaan

Opnieuw openen
Naar tabblad Ontwikkelaars
Links > Macro > Kiezen en uitvoeren

en de koptekst staat op de juiste plaats (kijk met afdrukvoorbeeld)

 

[JoaoFrancisco]

Sorry maar had de aanpassing in uw post 11 niet opgemerkt. Alles werkt nu perfect waarvoor mijn oprechte dank.

Ik wist ook niet dat het Macro was. Was van mening dat het gewoon VBA was.

Hartelijk bedankt aan iedereen die meegedacht heeft en nogmaals mijn verontschuldigingen.


Vriendelijke groeten,


João

 

[Senso]

:thumb: Mooi.
Maakt niets uit. Als het maar lukt. Ik leer er zelf ook weer iets van.
Succes verder.