Værdiangivelse i pivottabel

Du har jo muligheden for at gruppere dine data, og så sidenhen sætte måneden op på siden i din Pivottabel.
Om du så kan henvise det pivotdatafelt til en værdi i en celle på et andet ark, skal jeg lade stå hen i det uvisse (LÆSES SOM: det ved jeg ikke)

Hmmm...den er ikke forstået...vil du ikke prøve igen ?

Kunne du forklare det igen ?

Det svar vil jeg egentlig godt give 50 point ekstra for. Jeg går udfra det er oppe i sidefeltet du gerne vil lave en reference til en anden celle? Det er ihvertfald den problemstilling jeg sidder med.

Det virker desværre ikke som om der sker mere her...

Gu gør der så, jeg har fået til opgave af min chef at løse problemet, så det er kun et spørgsmål om tid før jeg får gravet en løsning frem. Så skal jeg nok vende tilbage.

Frederik_kromann -> det kan kun løses med en makro, som jeg ser det...
Er du interesseret så ?

Ja det er da et forsøg værd. Jeg har prøvet med en makro optager men problemet opstår idet man ikke kan "paste" altså trykke CTRL-V når man står i et sidefelt for at sætte værdien ind. I mit tilfælde har jeg 8 pivottabeller hvor måneden er det sidefelt jeg vil ændre værdien i. På en forside vælges måneden og så skal denne værdi sættes ind i sidefeltet på de 8 pivottabeller. Hvis du kunne hjælpe mig vil det være rigtig fedt.

Hej Bak, hvordan ser det ud med en makro ;-) sidder igen og bliver punket for ikke at kunne lave det.

send mig lige et eksempel på arket, så skal jeg se hvad der kan gøres
excel snabela tbdl.dk

http://www.eksperten.dk/spm/651718

Til bak

Makro Nr1. er i arket "Forside" 's eget kodemodul og registrerer ændringer i B3

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b3")) Is Nothing Then Call Macro1
End Sub


Nr2. er i et alm. modul og skifter pivottallerne sidefelt ifølge B3

Sub Macro1()
Dim sh As Worksheet
Dim pv As PivotTable
Dim rng As Range
Set rng = Sheets("forside").Range("B3")
On Error Resume Next
For Each sh In ActiveWorkbook.Worksheets
  For Each pv In sh.PivotTables
    pv.PivotFields("Opgave").CurrentPage = rng.Value
  Next
Next
End Sub

Lukker du lige dette spm. og tager pointene selv. Jeg har jo fået.

Du må nu gerne få dem, Bak... :-)

Hej Bak

Siddder lige og bruger din makro. Hvis man kun vil have den til at virke på Ark1 - hvad gør man så?

Sub Macro1()

Dim pv As PivotTable
Dim rng As Range
Set rng = Sheets("forside").Range("B3")
On Error Resume Next

  For Each pv In sheets("Ark1").PivotTables
    pv.PivotFields("Opgave").CurrentPage = rng.Value
  Next

End Sub

http://www.eksperten.dk/spm/664809

tak for hjælpen og værsgo'