draaitabel

[Djoties]

Hallo,

Wie kan mij helpen??
Via een macro haal ik data uit een ander file.
Nu wil ik via een andere macro een draaitabel maken. Helaas weet ik niet hoe ik in de macro de aantal rijen varaibele kan opgeven? In mijn voorbeeld macro staat nu "40". Maar het is elk keer anders. Wellicht is dat op te lossen door = verschuiving ().
Maar ik kom even niet uit!!
Graag uw hulp.

Sub draaitabel()
'
' draaitabel Macro
' De macro is opgenomen op 20-5-2011.
'

'
Range("A30").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Blad1!R30C1:R40C17").CreatePivotTable TableDestination:="", TableName:= _
"Draaitabel2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Draaitabel2").AddFields RowFields:="Onderwerp", _
ColumnFields:="Medewerker"
ActiveSheet.PivotTables("Draaitabel2").PivotFields("Totaal").Orientation = _
xlDataField
Rows("1:25").Select
Selection.Cut
Sheets("Blad1").Select
Range("A4").Select
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:B1").Select
Application.CutCopyMode = False
End Sub

 

[Haije]

Djoties,

kun je het bestand met de draaitabel (en de macro) posten?

 

[richard1970]

Weet je het maximaal aantal regels dat je wilt gebruiken voor je draaitabel?
Veel geheugen maakt het niet uit of je nu 1.000 of 5.000 records gebruikt. Wat je kunt doen is lege regels verbergen. De code heirvoor weet ik niet.
Richard