draaitabel automatisch vernieuwen

[Mariëlle]

Hoi!

Ik zou heel graag de draaitabel automatisch laten vernieuwen: iedere keer
als er een wijziging is in de brongegevens (brongegevens staan in hetzelfde
bronbestand).

Kan dat?

Bij voorbaat dank, Mariëlle

[Kees Oosterveld]

Ja, dat kan met behulp van een macro.

Zet in een module:

Sub Draaitabel_vernieuwen()
Application.ScreenUpdating = False
ActiveSheet.PivotTables("Draaitabel1").PivotCache.Refresh
End Sub

Ik heb in bovenstaande macro gekozen voor "Draaitabel1", maar dat kan
natuurlijk ook "Draaitabel2" of een andere naam van de draaitabel zijn.
Kijk hiervoor bij "Opties" bij de "Wizard Draaitabel en draaigrafiek" in
Stap 3 van 3.

Rechtsklik op de tab van het blad waarin de draaitabel zich bevindt.
Selecteer: Programmacode wergeven
en zet in het nu verschenen blanco blad:

Private Sub Worksheet_Activate()
Application.Run "Draaitabel_vernieuwen"
End Sub

Nu wordt elke keer als het blad waarin de draaitabel staat, de draaitabel
vernieuwd.

Kees Oosterveld.

Post by Mariëlle
Hoi!
Ik zou heel graag de draaitabel automatisch laten vernieuwen: iedere keer
als er een wijziging is in de brongegevens (brongegevens staan in hetzelfde
bronbestand).
Kan dat?
Bij voorbaat dank, Mariëlle

[Mariëlle]

Hoi Kees

Bedankt. Ik heb precies gedaan wat je schreef. De draaitabl heet Draaitabel1.
Echter, ik krijg fout 424 tijdens uitvoering object vereist.
Enig idee hoe dat kan komen?
Speelt de naam van het blad waarin de tabel staat nog een rol misschien?

Groeten
Mariëlle

Post by Kees Oosterveld
Ja, dat kan met behulp van een macro.
Sub Draaitabel_vernieuwen()
Application.ScreenUpdating = False
ActiveSheet.PivotTables("Draaitabel1").PivotCache.Refresh
End Sub
Ik heb in bovenstaande macro gekozen voor "Draaitabel1", maar dat kan
natuurlijk ook "Draaitabel2" of een andere naam van de draaitabel zijn.
Kijk hiervoor bij "Opties" bij de "Wizard Draaitabel en draaigrafiek" in
Stap 3 van 3.
Rechtsklik op de tab van het blad waarin de draaitabel zich bevindt.
Selecteer: Programmacode wergeven
Private Sub Worksheet_Activate()
Application.Run "Draaitabel_vernieuwen"
End Sub
Nu wordt elke keer als het blad waarin de draaitabel staat, de draaitabel
vernieuwd.
Kees Oosterveld.

Post by Mariëlle
Hoi!
Ik zou heel graag de draaitabel automatisch laten vernieuwen: iedere keer
als er een wijziging is in de brongegevens (brongegevens staan in hetzelfde
bronbestand).
Kan dat?
Bij voorbaat dank, Mariëlle

[Kees Oosterveld]

Hallo Mariëlle,

Op:
http://home.planet.nl/~oost1250/Excel/uitgebreid_vertikaal_zoeken.xls

heb ik een testbestandje staan, bijna hetzelfde als die ik een tijdje
geleden voor je gemaakt heb, maar nu is de draaitabel die zich bevindt op
Blad3 hierin geautomatiseerd via dezelfde procedure zoals ik op 24 maart
beschreven heb.
Sla eerst het bestandje op, want daarna werkt het VBA pas.
Op Blad3 bevindt zich "Draaitabel1".
Als je veranderingen aanbrengt in Blad1 en je klikt daarna op Blad3, dan
vernieuwt de draaitabel zich automatisch.
Misschien verduidelijkt dit testbestandje jouw vraag?

Groeten,
Kees.

Post by Mariëlle
Hoi Kees
Bedankt. Ik heb precies gedaan wat je schreef. De draaitabl heet Draaitabel1.
Echter, ik krijg fout 424 tijdens uitvoering object vereist.
Enig idee hoe dat kan komen?
Speelt de naam van het blad waarin de tabel staat nog een rol misschien?
Groeten
Mariëlle

Post by Kees Oosterveld
Ja, dat kan met behulp van een macro.
Sub Draaitabel_vernieuwen()
Application.ScreenUpdating = False
ActiveSheet.PivotTables("Draaitabel1").PivotCache.Refresh
End Sub
Ik heb in bovenstaande macro gekozen voor "Draaitabel1", maar dat kan
natuurlijk ook "Draaitabel2" of een andere naam van de draaitabel zijn.
Kijk hiervoor bij "Opties" bij de "Wizard Draaitabel en draaigrafiek" in
Stap 3 van 3.
Rechtsklik op de tab van het blad waarin de draaitabel zich bevindt.
Selecteer: Programmacode wergeven
Private Sub Worksheet_Activate()
Application.Run "Draaitabel_vernieuwen"
End Sub
Nu wordt elke keer als het blad waarin de draaitabel staat, de draaitabel
vernieuwd.
Kees Oosterveld.

Post by Mariëlle
Hoi!
Ik zou heel graag de draaitabel automatisch laten vernieuwen: iedere keer
als er een wijziging is in de brongegevens (brongegevens staan in hetzelfde
bronbestand).
Kan dat?
Bij voorbaat dank, Mariëlle

[Mariëlle]

Hoi Kees,

Bedankt. Het niet draaien had te maken met de instellingen voor beveiliging.
De makro draaide niet omdat het beveiligingsniveau op hoog stond en de makro
niet gesigneerd was.
Nu werkt het perfect. Bedankt!!!

Post by Kees Oosterveld
Hallo Mariëlle,
http://home.planet.nl/~oost1250/Excel/uitgebreid_vertikaal_zoeken.xls
heb ik een testbestandje staan, bijna hetzelfde als die ik een tijdje
geleden voor je gemaakt heb, maar nu is de draaitabel die zich bevindt op
Blad3 hierin geautomatiseerd via dezelfde procedure zoals ik op 24 maart
beschreven heb.
Sla eerst het bestandje op, want daarna werkt het VBA pas.
Op Blad3 bevindt zich "Draaitabel1".
Als je veranderingen aanbrengt in Blad1 en je klikt daarna op Blad3, dan
vernieuwt de draaitabel zich automatisch.
Misschien verduidelijkt dit testbestandje jouw vraag?
Groeten,
Kees.

Post by Mariëlle
Hoi Kees
Bedankt. Ik heb precies gedaan wat je schreef. De draaitabl heet Draaitabel1.
Echter, ik krijg fout 424 tijdens uitvoering object vereist.
Enig idee hoe dat kan komen?
Speelt de naam van het blad waarin de tabel staat nog een rol misschien?
Groeten
Mariëlle

Post by Kees Oosterveld
Ja, dat kan met behulp van een macro.
Sub Draaitabel_vernieuwen()
Application.ScreenUpdating = False
ActiveSheet.PivotTables("Draaitabel1").PivotCache.Refresh
End Sub
Ik heb in bovenstaande macro gekozen voor "Draaitabel1", maar dat kan
natuurlijk ook "Draaitabel2" of een andere naam van de draaitabel zijn.
Kijk hiervoor bij "Opties" bij de "Wizard Draaitabel en draaigrafiek" in
Stap 3 van 3.
Rechtsklik op de tab van het blad waarin de draaitabel zich bevindt.
Selecteer: Programmacode wergeven
Private Sub Worksheet_Activate()
Application.Run "Draaitabel_vernieuwen"
End Sub
Nu wordt elke keer als het blad waarin de draaitabel staat, de draaitabel
vernieuwd.
Kees Oosterveld.

Post by Mariëlle
Hoi!
Ik zou heel graag de draaitabel automatisch laten vernieuwen: iedere keer
als er een wijziging is in de brongegevens (brongegevens staan in hetzelfde
bronbestand).
Kan dat?
Bij voorbaat dank, Mariëlle