[Excel] Knop gegevens vernieuwen draaitabel op werkblad

[Verwijderd]

Heb een draaitabel gemaakt in Excel en wil nu graag op het werkblad zelf een knopje waarmee je de gegevens kan vernieuwen in de draaitabel. In plaats van op rechtermuisknop te moeten drukken als je op de draaitabel staat en dan te kiezen voor "gegevens vernieuwen".

Niet omdat ik superlui ben Maar omdat het in een soort van user interface staat...

Wie kan me hiermee helpen??

[Microkid]

Luiwammes
Dit kan je best zelf, 30 seconden werk. Gewoon even een macro opnemen, en die koppelen aan een button op je werkblad.

Hier is het macro:

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveSheet.PivotTables("PivotTable1").RefreshTable
End Sub

[Verwijderd]

Thank you!!! Mijn dank is groot.
Ik ben niet lui, maar gewoon nog niet zo handig hiermee

[Verwijderd]

het wil niet ik ben totaal niet handig met macro's/VBA
het zou toch ook moeten lukken met rechtermuisknop op de knop, dan code weergeven?? en daar dan het invoeren????

[KingRichard]

Wat lukt niet? Als je in de VBA-editor wilt komen, kun je gewoon op ALT-F11 drukken.

offtopic:
Frennie, het is misschien een goed idee om het 3 stappenplan van SA (nog) eens te lezen. En is je vorige probleem nou opgelost of niet? Zo ja, kun je dat er dan even bijzetten?

[ Voor 4% gewijzigd door KingRichard op 10-09-2003 15:09 . Reden: Het grootste gedeelte in [offtopic] gezet ]

[Verwijderd]

heb op programmacode weergeven gedrukt, en de formule geprobeerd:

Private Sub CommandButton1_Click()
ActiveSheet.PivotTables("PivotTable2").RefreshTable
End Sub

krijg ik bij uitvoeren:

Fout 1004 tijdens uitvoering
eigenschap PivotTables van klasse Worksheet kan niet worden opgehaald.

of doe ik nu iets heel stoms????

[KingRichard]

Waarschijnlijk heb je helemaal geen ervaring met VBA. De naam die hierboven tussen aanhalingstekens staat ("Pivottable2") moet overeenkomen met de naam van je draaitabel. Die kun je aanpassen bij de opties van de draaitabel. Als er maar één draaitabel op het blad staat, kun je ook...

Visual Basic:

ActiveSheet.PivotTables(1).RefreshTable

...gebruiken.

[Microkid]

Verwijderd schreef op 10 September 2003 @ 15:45:
heb op programmacode weergeven gedrukt, en de formule geprobeerd:

Private Sub CommandButton1_Click()
ActiveSheet.PivotTables("PivotTable2").RefreshTable
End Sub

krijg ik bij uitvoeren:

Fout 1004 tijdens uitvoering
eigenschap PivotTables van klasse Worksheet kan niet worden opgehaald.

of doe ik nu iets heel stoms????

Jij hebt blijkbaar de Nederlandse Excel, dan heet het geen pivottables, maar draaitabellen geloof ik. Moet je even nakijken.

[KingRichard]

Dat klopt, maar dat maakt voor de VBA-code niet uit.

[Verwijderd]

Zo heette mijn draaitabel ook, maar toch deed het het niet. Maar superrelaxed, je alternatief werkt Dankjewel!!!!