Afdrukbereik varieëren per werkblad ?

[Abco_B]

Is het mogelijk om een afdrukbereik in te stellen dat varieert per werkblad, bijvoorbeeld door in het afdrukbereik een variabele op te nemen die een bepaalde waarde uit het actieve werkblad haalt ?

Ben benieuwd !

Abco

 

[jheesterbeek]

met macro's zijn de mogelijkheden eindeloos:

Sub Afdrukbereik()
'

Dim StartKolom ' de kolom waar je afdrukbereik begint
Dim EindKolom ' de kolom waar je afdrukbereik eindigt
Dim StartRij ' de rij waar je afdrukbereik begint
Dim EindRij ' de rij waar je afdrukbereik eindigd

' bovenstaande variabelen worden opgehaald in A1 tm A4 op het betreffende sheet
StartKolom = ActiveSheet.Range("A1")
EindKolom = ActiveSheet.Range("A2")
StartRij = ActiveSheet.Range("A3")
EindRij = ActiveSheet.Range("A4")

    ActiveWorkbook.Names.Add Name:="Print_Area", RefersToR1C1:= _
        "=Blad1!R" & StartRij & "C" & StartKolom & ":R" & EindRij & "C" & EindKolom & ""
End Sub

 

[jpvs]

Via zoeken op dit forum :

http://www.helpmij.nl/forum/showthread.php?t=219274&highlight=afdrukbereik+variabel

of

via formule :

In dit voorbeeld begint het afdrukbereik in cel B6

Invoegen - Naam - Definiëren
Namen in werkmap: Afdrukbereik
Verwijst naar:
=VERSCHUIVING($B$6;0;0;AANTALARG($B:$B)-AANTALARG($B$1:$B$5);4)

De 4 is het aantal kolommen dat in het bereik moet zitten vanaf kolom B.


Pierre

 

[Abco_B]

Pierre,

Ik probeer dit in eerste instantie via een formule te doen, namelijk:


Afdrukbereik =VERSCHUIVING(Januari!$A$1;;;Aantal_Rijen;5)

en

Aantal_rijen =AANTALARG(Januari!$C:$C)


Maar ik wil dus wel dat de maanden (bladnaam) meeveranderen, indien mogelijk.

Abco

 

[jpvs]

Abco,

De naam moet je (eenmalig) voor elk blad aanmaken.
Anders zal het in VBA moet denk ik.

Pierre

 

[Abco_B]

Dan ga ik inderdaad maar met bovenstaande VBA codes aan de slag.

Bedankt voor jullie reacties,

Abco

 

[Abco_B]

Ter informatie:

Ik kom er nu achter dat als ik het blad Mei met

Afdrukbereik =VERSCHUIVING(Mei!$A$1;;;Aantal_Rijen;5)

Kopieer naar blad Mei(2) en dit verander in Juni,

het afdrukbereik als volgt meeverandert (bij de optie Ja)

=VERSCHUIVING(Juni!$A$1;;;Aantal_Rijen;5)

Erg handig dus.


Betreft: Excel 2002