Excel macro error 400

[KarelG]

Ik heb een excel bestand voor de tijdsregistratie van een viertal vrijwilligers.

Bestand is beveiligd zodat niet alles te wissen valt, met een draaitabel per tabblad erin.

Gezocht en gevonden in internet hoe ik toch de draaitabel kan updaten, maar hij doet het niet en geeft errorcode 400.

 

Bestand in bijlage... iemand die me kan helpen? Het pw om de beveiliging ongedaan te maken is pcc2018

Gewerkte uren per maand met macro.xlsm

[Haije]

Karel,

is deze oplossing voldoende?

Gewerkte uren per maand met macro (hs).xlsm

[Haije]

Betere oplossing

Gewerkte uren per maand met macro (hs).xlsm

[KarelG]

Bedankt, ik bekijk het morgen op mijn werk en laat je iets weten...

[bakerman]

@ KarelG

 

Enige reden waarom al je draaitabellen dezelfde gegevensbron hebben ?

[KarelG]

Ik had dit ook al gezien, blijkbaar gebeurt dit als ik een tabblad kopieer, ik moet eigenlijk telkens per tabblad die draaitabel opnieuw maken (is snel gedaan, dus geen issue).

Ik heb ondertussen het macro probleem ook opgelost gehad, door dit op elk tabblad even opnieuw te installeren, werkt dus ook nu.

 

Nu alleen nog een knopje per tabblad op de herberekening te doen via de knop ipv alt-F8 om de macro uit te voeren... moet ik nog uitzoeken (ik heb meer dan 30 jaar niet meer in programmacode gezeten, dus wat roestig geworden).

 

In bijlage de versie zoals ze nu draait... ww om te ontgrendelen is pcc2018.

Kopie van Gewerkte uren per maand met macro bis.xlsm

[KarelG]

15 uren geleden, Haije zei:

 

Ik moet eigenlijk telkens per tabblad die draaitabel opnieuw maken (is snel gedaan, dus geen issue).

Ik heb ondertussen het macro probleem ook opgelost gehad, door dit op elk tabblad even opnieuw te installeren, werkt dus ook nu.

 

Nu alleen nog een knopje per tabblad op de herberekening te doen via de knop ipv alt-F8 om de macro uit te voeren... moet ik nog uitzoeken (ik heb meer dan 30 jaar niet meer in programmacode gezeten, dus wat roestig geworden).

 

In bijlage de versie zoals ze nu draait... ww om te ontgrendelen is pcc2018.

 

Alvast bedankt voor de moeite...

Kopie van Gewerkte uren per maand met macro bis.xlsm

[bakerman]

Je wil het blijkbaar zo eenvoudig mogelijk.

Probeer dan onderstaand bestand eens uit.

Telkens je het Einduur invult op eender welk werkblad waarvan de naam begint met Persoon wordt de PT automatisch bijgewerkt.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name Like "Persoon*" Then
        If Not Intersect(Target, Sh.Columns(4)) Is Nothing Then
            With Sh
                .Unprotect "pcc2018"
                For Each pt In .PivotTables
                    pt.PivotCache.Refresh
                Next
                .Protect "pcc2018"
            End With
        End If
    End If
End Sub

 

KarelG.xlsm