Waarde CEL A1 in kop-tekst

Bas Briefjes

unread,

May 9, 2005, 1:21:55 PM5/9/05

to

In een rapportage zet ik in CEL A1 altijd het week nummer.

En in de koptekst heb ik altijd staan "Besturings rapportage van week X"
Elke week wijzig ik X in de desbetreffende week. Een kleine klus, maar
dit zou toch anders moeten kunnen, want ik heb dit tenslotte ook al in CEL
A1
genoteerd.

Wie weet hoe ?

ps. Het moet niet iets worden van =weeknummer() Maar gewoon de waarde uit
CEL A1.

Alvast bedankt,
Bas.

]-[oRus

unread,

May 9, 2005, 1:28:48 PM5/9/05

to

Bas Briefjes vertrouwde ons het volgende toe:

Zet de koptekst in de eerste regel van het blad i.p.v. als koptekst.
Laat de regel op elke bladzijde terugkomen.

--

Vriendelijke groeten,

]-[oRus

Bas Briefjes

unread,

May 9, 2005, 1:47:45 PM5/9/05

to

Nee, sorry dit is echt niet de bedoeling.
Er zal vast een betere oplossing zijn ??

-----------

> Zet de koptekst in de eerste regel van het blad i.p.v. als koptekst.
> Laat de regel op elke bladzijde terugkomen.
>
> --
>
> Vriendelijke groeten,
>
> ]-[oRus
>
>

"]-[oRus" <ho...@fake.invalid> schreef in bericht
news:OhX8MyLV...@TK2MSFTNGP10.phx.gbl...

Jean-Paul Rijnsburger

unread,

May 9, 2005, 2:25:10 PM5/9/05

to

Het kan wel met VBA. Met een formule kan het helaas voor zover ik weet
niet...

Sub Koptekst()

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = Range("a1").Value
.RightHeader = ""

End With
End Sub

HTH

Jean-Paul

Bas Briefjes

unread,

May 9, 2005, 3:55:06 PM5/9/05

to

Jean-Paul,

Je geeft me de volgende VBA-tekst

Sub Koptekst()

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = Range("a1").Value
.RightHeader = ""

End With
End Sub

Waar moet ik dit neerzetten, ik druk eerst CTRL + F11 en heb dit
geprobeerd bij Blad1, en later bij ThisWorkbook.

Maar geen resultaat, moet ik nog iets activeren misschien ?

"Jean-Paul Rijnsburger" <Jeepee7...@gmail.com> schreef in bericht
news:wMudnTRxkoy...@casema.nl...

emil

unread,

May 9, 2005, 5:43:56 PM5/9/05

to

in "ThisWorkbook":
Private Sub Workbook_BeforePrint(Cancel As Boolean)

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = Range("a1").Value
.RightHeader = ""

End With
End Sub

en de sneltoets voor de vba editor = [alt]+[F11] ;-)

--
groet, emil
<getest met office2000>

"Bas Briefjes" <b.bri...@wanadoo.nl> schreef in bericht
news:427fbfaa$0$45314$dbd4...@news.wanadoo.nl...

Bas Briefjes

unread,

May 10, 2005, 1:16:01 PM5/10/05

to

Met dan aan Emil is het gelukt om de celwaarde van A1
in me koptekst te krijgen, zie onderstaande VBA-tekst:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = Range("a1").Value
.RightHeader = ""

End With
End Sub

-------------------------------------------------------

Maar nu wil ik dat er standaard de zin " Rapportage week "
en dat er dan achter de zin de waarde van CEL A1 komt te staan.

Kan iemand me hier aan helpen ?

Gr. Bas.

Bas Briefjes

unread,

May 10, 2005, 1:52:14 PM5/10/05

to

Met dank aan Emil is het gelukt om de celwaarde van A1

Ad Bécude

unread,

May 10, 2005, 3:10:02 PM5/10/05

to

Bas,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = ""

.CenterHeader = "Rapportge week " & Range("a1").Value
.RightHeader = ""

Ad.
End With
End Sub

"Bas Briefjes" schreef:

Ad Bécude

unread,

May 10, 2005, 3:18:03 PM5/10/05

to

Bas,
Ik was iets te vlug.
Ik zou m'n naam er maar van tussen halen, dan heb je kans dat het werkt.;-)

Ad.
"Ad Bécude" schreef: