dynamisch print bereik via vba

[arjoderoon]

Ik heb in Excel een dynamisch print bereik ingesteld voor mijn werkblad "Stand".
Deze doet het nu prima en ik dacht: dit moet ik ook in vba voor elkaar kunnen krijgen. MAar wat ik ook probeer en welke suggesties ik ook van internet haal: ik krijg het niet voor elkaar.

hoe zou ik onderstaande formule in een vba code moeten omzetten zodat deze hetzelfde doet?

=VERSCHUIVING(Stand!$A$2;0;AANTALARG(Stand!$3:$3)-5;40;5)

 

[Elsendoorn2134]

Arjo,

Ik vermoed dat je zoiets als dit bedoeld?

Public Sub MaakPrintReeks()

'=VERSCHUIVING(Stand!$A$2;0;AANTALARG(Stand!$3:$3)-5;40;5)
ActiveSheet.PageSetup.PrintArea = _
    Range("$A$2").Offset(0, Application.WorksheetFunction.CountA(Range("A3:ZZ3")) - 5) _
    .Resize(40, 5).Address

End Sub

Veel Succes.

 

[arjoderoon]

Ik zal het eens proberen, dank! in mijn hoofd was het eenvoudiger dan dat ik het nu zie staan