Hallo allemaal,
Ik ben nog maar nieuw op dit forum en een beginner met VBA en heb geprobeerd te zoeken naar dit onderwerp, maar ik kom er niet goed uit. Daarom stel ik deze vraag.
Ik heb op 1 tabblad (genaamd "specialisme") meerdere draaitabellen staan, die allemaal hetzelfde rapportfilter hebben. Met VBA heb ik een code die adhv een keuzelijstje (staat in cel E5) alle rapportfilters aanpast. Wel zo gebruiksvriendelijk natuurlijk, anders moet je alle draaitabellen afzonderlijk gaan aanpassen.
Public Sub Update_PTs()
Dim PT As pivottable, ws As Worksheet
Dim vChoice: vChoice = Sheets("specialisme").Range("E5")
For Each ws In ThisWorkbook.Worksheets
For Each PT In ws.PivotTables
PT.PageFields(1).CurrentPage = vChoice
Next PT
Next ws
End Sub
De code werkt wel, maar ik krijg steeds een foumelding met alleen de tekst: 400 en een groot rood kruis.
Hoe kan ik dit oplossen?
Ik ben nog maar nieuw op dit forum en een beginner met VBA en heb geprobeerd te zoeken naar dit onderwerp, maar ik kom er niet goed uit. Daarom stel ik deze vraag.
Ik heb op 1 tabblad (genaamd "specialisme") meerdere draaitabellen staan, die allemaal hetzelfde rapportfilter hebben. Met VBA heb ik een code die adhv een keuzelijstje (staat in cel E5) alle rapportfilters aanpast. Wel zo gebruiksvriendelijk natuurlijk, anders moet je alle draaitabellen afzonderlijk gaan aanpassen.
Public Sub Update_PTs()
Dim PT As pivottable, ws As Worksheet
Dim vChoice: vChoice = Sheets("specialisme").Range("E5")
For Each ws In ThisWorkbook.Worksheets
For Each PT In ws.PivotTables
PT.PageFields(1).CurrentPage = vChoice
Next PT
Next ws
End Sub
De code werkt wel, maar ik krijg steeds een foumelding met alleen de tekst: 400 en een groot rood kruis.
Hoe kan ik dit oplossen?
Laatst bewerkt:
