Value inputbox gebruiken om filter in pivottable te veranderen

hallo,

Ik heb een waarde dmv een inputbox.
Ik zou deze waarde ook willen gebruiken om het filter in een pivottable op deze waarde te zetten?

Wat zou ik moeten toevoegen?

Dim FL As String
FL = InputBox("Type Locatie")
Range("A1").Value = FL
ActiveSheet.Name = FL

Peter

Neem eens een macro op als je die actie handmatig doet, dan zie je precies wat er voor moet worden gdaan.

Dat had ik gedaan Edmoor, maar toen ik de werkelijke waarde veranderde in FL , kreeg ik een foutmelding. Zit nu thuis, jammer ik heb het bestand niet hier, anders had ik dat nog een keer geprobeerd.
Ik dacht, misschien is er wel een universele code die dat doet?

Als je zegt een foumelding te krijgen, vertel deze er dan ook bij.
Laat tevens de opgenemen macro zien.

kom er op terug. Zie ook iets wat niet klopt in het bereik

De macro werkt als ik het filter van de draaitabel op een vaste waarde zet (Magazijn 1).
Ik zou graag de waarde van de inputbox in het filter willen hebben.

Als ik de laatste regel van de macro verander in CostCenter, dan krijg ik de melding "Kan item niet vinden in de Olap-Kubus

ActiveSheet.PivotTables("12 maanden uren").PivotFields( _
"[Historisch_Overzicht_Totaalbereik].[Facturatie Locatie].[Facturatie Locatie]" _
).CurrentPageName = _
CostCenter




Deze macro werkt met een vaste waarde in het filter

Dim CostCenter As String
CostCenter = InputBox("Type CostCenter")

Range("A3").Value = CostCenter
ActiveSheet.Name = "Analyse" & " " & CostCenter

Sheets("Urentabel 12 maanden").Select
ActiveSheet.PivotTables("12 maanden uren").PivotCache.Refresh
ActiveSheet.PivotTables("12 maanden uren").PivotFields( _
"[Historisch_Overzicht_Totaalbereik].[Facturatie Locatie].[Facturatie Locatie]" _
).ClearAllFilters

Sheets("Urentabel 12 maanden").Select


ActiveSheet.PivotTables("12 maanden uren").PivotFields( _
"[Historisch_Overzicht_Totaalbereik].[Facturatie Locatie].[Facturatie Locatie]" _
).ClearAllFilters


ActiveSheet.PivotTables("12 maanden uren").PivotFields( _
"[Historisch_Overzicht_Totaalbereik].[Facturatie Locatie].[Facturatie Locatie]" _
).CurrentPageName = _
"[Historisch_Overzicht_Totaalbereik].[Facturatie Locatie].&[Magazijn 1]"

End Sub

Zonder bestand kunnen we het niet testen natuurlijk.
Zou dit werken?