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: 23.Nov.2024 kl. 06:41
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 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 |