Print side | Luk vindue

dynamisk pivot

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Generelt
Forum beskrivelse: Hjælp til generel daglig brug af programmet Excel
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4045
Udskrevet den: 29.Mar.2024 kl. 08:17


Emne: dynamisk pivot
Besked fra: Mortensen1967
Emne: dynamisk pivot
Posteringsdato: 24.Okt.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 ?




Svar:
Besked fra: Skovgaard
Posteringsdato: 25.Okt.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


Besked fra: Mortensen1967
Posteringsdato: 29.Okt.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. 




Besked fra: Skovgaard
Posteringsdato: 29.Okt.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


Besked fra: Mortensen1967
Posteringsdato: 29.Okt.2019 kl. 11:44
Yes, lige netop


Besked fra: Skovgaard
Posteringsdato: 29.Okt.2019 kl. 14:38
Tjek om du kan bruge vedhæftede.
I eksemplet kan du ændre dine valg i cellerne G1 og G2

uploads/2506/Dynamisk_Pivot_Skovgaard.xlsm" rel="nofollow - uploads/2506/Dynamisk_Pivot_Skovgaard.xlsm

/Skovgaard


Besked fra: Mortensen1967
Posteringsdato: 29.Okt.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 ?


Besked fra: Skovgaard
Posteringsdato: 30.Okt.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


Besked fra: Mortensen1967
Posteringsdato: 30.Okt.2019 kl. 16:30
Perfekt .... endnu en gang tusind tak



Print side | Luk vindue