Waarde cel in draaitabel wijzigen

[karelbek1967]

Hallo,

In een draaitabel had ik de inhoud van een cel handmatig gewijzigd.
Hoe krijg ik het voor mekaar de originele waarde van de draaitabel weer op te halen?
Ik dacht zelf draaitabel vernieuwen, maar dat is niet de oplossing .....

Gr. Karel

 

[popipipo]

De reden waarom je en getal in een draaitabel wilt wijzigen ontgaat me.
Heb je de gewijzigde data al geheel verwijderd en daarna de draaitabel vernieuwd?

 

[karelbek1967]

Hallo popipipo,

De reden waarom je en getal in een draaitabel wilt wijzigen ontgaat me.

Het gebeurt soms dat er per ongeluk iets wordt ingevuld, of een collega voert iets in

Heb je de gewijzigde data al geheel verwijderd en daarna de draaitabel vernieuwd?

Had de cel al eens leeg gemaakt en dan refreshen, dat helpt niet.

 

[popipipo]

Dan zou ik nog proberen om de hele draaitabel te verwijderen en een nieuw aan te maken.

 

[AD1957]

probeer dit eens:
klick in de draaitabel dan draaitabel analyseren >>Wissen>>alles wissen.
Wel nog even de draaitabelvelden opnieuw instellen.

 

[karelbek1967]

Hallo,

Om de draaitabel opnieuw aan te maken (velden opnieuw aanwijzen) is het redmiddel dat mij bekend was.
Maar was op zoek naar iets simpelers dat het kon oplossen .... zal er wel niet zijn vrees ik.

 

[AD1957]

Je geeft aan dat het soms voorkomt.
Met een klein stukje VBA is het met 1 klik op te lossen.

 

[karelbek1967]

Hallo Albert,

Zou je dat stukje vba willen delen?

 

[AD1957]

Hier met een simpele draaitabel.
Anders zelf een voorbeeldbestandje plaatsen.
Of: gebruik de macro recorder

 

[karelbek1967]

Hallo Albert,

Bedankt voor de moeite. maar is eigenlijk niet hetgeen ik zoek.
Met deze macro wordt ook de draaitabel opnieuw neergezet.
Had gehoopt dat er iets eenvoudigs op te vinden was ......

 

[AD1957]

Met deze macro wordt ook de draaitabel opnieuw neergezet.

Wat bedoel je hiermee.

 

[karelbek1967]

Hallo Albert,

Weet niet precies wat je code doet.
Ik heb een voorbeeldbestand gemaakt die het probleem duidelijk maakt.

 

[AD1957]

Ik ben geen expert met draaitabellen (nog steeds lerende)
Door de, in mijn ogen, vreemde opzet van de draaitabel is het mogelijk om in de kolom 'aantal' cellen te wijzigen.
Zie voorbeeld voor een andere opzet.
Wijzigen van de cellen in kolom aantal is nu niet mogelijk.
Wel kun je nog de namen wijzigen, geen idee of dat ook wel eens wordt gedaan. (anders cellen blokkeren en beveiligen, gebruik van draaitabel toestaan.)
Macro staat onder de blauwe knop

Sub Herstel()
   With ActiveSheet.PivotTables("Draaitabel1")
    .ClearTable
    .PivotFields("Naam").Orientation = xlRowField
    .PivotFields("Naam").Position = 1
    .AddDataField ActiveSheet.PivotTables( _
     "Draaitabel1").PivotFields("Aantal"), "Som van Aantal", xlSum
    .CompactLayoutRowHeader = "Naam"
   End With
End Sub

 

[HSV]

Selecteer de cellen E1:E4.
Menu "draaitabellen analyseren" → Groep → Selectie Groeperen → Groep opheffen.

 

[karelbek1967]

Hallo Harry,

Is inderdaad een mogelijkheid die werkt.
Bedankt voor je suggestie. :thumb: