Draaitabel met relatief bereik

[gemuseman]

Goedendag,


Bijgaand bestand is gekopieerd uit een groter werkblad. Bekijk bijlage helpMij.xls

Op tabblad "bestemming" bevind zich een tabel die per keer wisselt van inhoud en grootte.
Op tabblad "gegevens" wil ik op een draaitabel neerzetten met gegevens uit de tabel "bestemming".

Dit wil ik automatisch doen met VBA, maar ik kom er niet uit.

Zie hieronder de code die vastloopt op de rood gekleurde tekst.

Alvast hartelijk dank als u mij wilt helpen.

Gerard.

Sub draaitabel()

Sheets("bestemming").Activate
Dim myRange
Sheets("bestemming").[C65536].End(xlUp).Select
Set myRange = Range(Selection, "E1")

Dim pc As PivotCache
Set pc = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
myRange)

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
pc).CreatePivotTable TableDestination:= _
"[helpMij.xls]gegevens!R20C1", TableName:="Draaitabel5", DefaultVersion:= _
xlPivotTableVersion10

With ActiveSheet.PivotTables("Draaitabel5").PivotFields("Onderdeel van")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Draaitabel5").AddDataField ActiveSheet.PivotTables( _
"Draaitabel5").PivotFields("Aantal"), "Som van Aantal", xlSum
ActiveWorkbook.ShowPivotTableFieldList = False
Range("K27").Select
End Sub

 

[cow18]

een draaitabel maak je 1-malig aan en voor de bron gebruik je dan een dynamisch bereik.
Nu moet je enkel nog vernieuwen en niet telkens die draaitabel heraanmaken.

 

[gemuseman]

Dank,
Hiermee is volgens mij het probleem opgelost.
Ik wil de topic graag nog even open laten omdat ik het nog even goed wil uittesten.

Gerard