draaitabel aanpassen aan variabel bereik

[shivalli]

Beste lezers,

Graag wil ik jullie hulp mbt het volgende:
voor elke toets moet ik een frequentieverdeling en draaitabel uitdraaien.
Behalve het aantal studenten zijn de de rest van de handelingen het zelfde.
Hiervoor heb ik een macro opgenomen (zie bijlage)
Wie kan mij helpen deze code aan te passen aan een variabel bereik en dan een draaitabel uit te draaien.
Ik hoop dat het duidelijk is, anders hoor ik het uiteraard graag.
Alvast dank.
Hartelijke groeten,
Shivalli

 

[Elsendoorn2134]

Shivali,

Het bereik hoeft niet aangepast te worden.
Ik heb een draaitabel gemaakt met van dezelfde waarde als welke jijzelf
bent gestart alleen heb ik als reeks A:B (dus de eerste twee kolommen) gebruikt. Dan krijg je een regel met (leeg). Maar die kun je via de filter verbergen. Wel heb ik de tabel twee regels hiervoor naar boven geschoven.
Nu kan de tabel zo groot worden als hij wil, het overzicht blijft gelijk.
Verder bereken ik ook het percentage in de draaitabel automatisch.
Dit is gewoon een cel instelling, waarbij hij niet het aantal telt maar het percentage van het totaal. Alleen de cumulatieve kan ik niet binnen de
draaitabel berekenen.

Zie bijgaand voorbeeld.


Bekijk bijlage HelpMijBestandFreqVerd.xlsm

 

[shivalli]

Elsendoorn2134,

Allereerst dank voor je reactie.
Echter is het eea nog onduidelijk voor mij.
heb je voor het uitdraaien van de frequentietabel gebruik gemaakt van de macro of heb je deze handmatig uitgedraaid?
gr,
S

 

[Elsendoorn2134]

Shivale,

Voor het opstellen van de frequentietabel heb ik gebruik gemaakt van een draaitabel hiervoor is geen macro nodig.

 

[shivalli]

Elsendoorn2134,

Dat is duidelijk, echter moet ik voor elke toets die verwerkt wordt zo een ferquentieverdeling en draaitabel uitdraaien. Dit is de reden dat ik het wou automatiseren.
Dit is een stuk van de vba-code(zie bijlage) en ik denk dat met name het roodgemarkeerde gedeelte(bereik) anders moet, omdat het aantal studenten per toets niet het zelfde is.
Range("A10").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'uitslag op nr'!R2C2:R51C2").CreatePivotTable TableDestination:= _

Thanks alvast!
S