Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Opret ny bruger Opret ny bruger  Log ind Log ind


dynamisk pivot

 Besvar Besvar
Forfatter
Mortensen1967 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 22-10-2019
Land: DK
Status: Offline
Point: 7
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Mortensen1967 Citér  BesvarSvar Direkte link til dette indlæg Emne: dynamisk pivot
    Sendt: 24-10-2019 kl. 21:36
Er der en måde hvor pivottabellens valg af felter for henholdsvis rækker og kolonner kan hentes via en celle / indtastning ?

Til top



Til top
Skovgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 13-08-2019
Land: Danmark
Status: Offline
Point: 107
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Skovgaard Citér  BesvarSvar Direkte link til dette indlæg Sendt: 25-10-2019 kl. 10:58
Jeg har tidligere siddet med samme udfordring og fandt frem til nedenstående VBA kode, som virker fint for mig.
Jeg har den i koden for selve arket med pivot'en

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("G1:G2")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("PivotMonth").PivotTables("PivotTable1")
    Set xPFile = xPTable.PivotFields("YYYYMM:")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub


/Skovgaard
Til top
Mortensen1967 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 22-10-2019
Land: DK
Status: Offline
Point: 7
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Mortensen1967 Citér  BesvarSvar Direkte link til dette indlæg Sendt: 29-10-2019 kl. 10:51
Tak for input

Jeg kan dog ikke få noget til at ske ?

Det som jeg har brug for er at pivottabellens rækker og kolonner vælges via eks A10 og A11
dvs. at de felter som pivottabellen i feltlisten skal putte i hhv. rækker og kolonner hentes via data i A10 og A11. 


Til top
Skovgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 13-08-2019
Land: Danmark
Status: Offline
Point: 107
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Skovgaard Citér  BesvarSvar Direkte link til dette indlæg Sendt: 29-10-2019 kl. 11:33
Mener du som nedenstående eksempel, hvor dine input styrer hvilke felter/kolonner fra dit datasheet, som skal bruges som kolonne, række og evt filter og værdier:?

A10 = "TEST1"
A11 = "TEST2"
A12 = "TEST3"



/Skovgaard
Til top
Mortensen1967 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 22-10-2019
Land: DK
Status: Offline
Point: 7
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Mortensen1967 Citér  BesvarSvar Direkte link til dette indlæg Sendt: 29-10-2019 kl. 11:44
Yes, lige netop
Til top
Skovgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 13-08-2019
Land: Danmark
Status: Offline
Point: 107
Indlæg funktioner Indlæg funktioner   Tak (1) Tak(1)   Citér Skovgaard Citér  BesvarSvar Direkte link til dette indlæg Sendt: 29-10-2019 kl. 14:38
Tjek om du kan bruge vedhæftede.
I eksemplet kan du ændre dine valg i cellerne G1 og G2


/Skovgaard
Til top
Mortensen1967 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 22-10-2019
Land: DK
Status: Offline
Point: 7
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Mortensen1967 Citér  BesvarSvar Direkte link til dette indlæg Sendt: 29-10-2019 kl. 14:52
Det er lige nøjagtigt sådan jeg havde tænkt :-)
Tusind tak - men hvor finder jeg koden .... syntes ikke den er synlig i makroerne ?
Til top
Skovgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 13-08-2019
Land: Danmark
Status: Offline
Point: 107
Indlæg funktioner Indlæg funktioner   Tak (1) Tak(1)   Citér Skovgaard Citér  BesvarSvar Direkte link til dette indlæg Sendt: 30-10-2019 kl. 07:49
Super, måske det kan laves smartere, er ikke en haj til VBA :-)

Koden ligger på selve arket - Højreklik på arket (PIVOT), og så "View Code".

/Skovgaard
Til top
Mortensen1967 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 22-10-2019
Land: DK
Status: Offline
Point: 7
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Mortensen1967 Citér  BesvarSvar Direkte link til dette indlæg Sendt: 30-10-2019 kl. 16:30
Perfekt .... endnu en gang tusind tak
Til top
 Besvar Besvar
  Del emne   

Skift forum Forum tilladelser Se dropdown

© 2010 - 2019 Dansk Regneark Forum - en del af Excel-regneark.dk