Avatar billede kim1a Ekspert
04. maj 2018 - 13:43 Der er 2 kommentarer og
1 løsning

VBA Pivot cache - virker ikke

Hej alle

Jeg arbejder på en løsning hvor jeg har et dataark og skal skabe en pivot ud af dette.

Jeg har sakset en del herfra: https://excelchamps.com/blog/vba-to-create-pivot-table/

Min makro melder fejl her: (type mismatch)

'Define Pivot Cache
Set PCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange).CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), TableName:="LicensePivotTable")

Mine variabler:
Set DSheet = Worksheets("Data til pivot")
Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol)

PRange kan når jeg stepper igennem markere min data (Prange.select i immidiate vinduet) - men jeg kan ikke gøre det fra andre steder end end den rigtige fane.
Jeg har prøvet med nogle løsninger omkring aktivering af fanen først, men det hjælper mig ikke.

Er der nogen som har ideer?
06. maj 2018 - 09:11 #1
Du er velkommen til at sende mig din fil f.eks. via https://www.it-fjernundervisning.dk/info/hjælp - så kan jeg kigge på det.
Avatar billede kim1a Ekspert
07. maj 2018 - 09:33 #2
Hej Thor
Jeg har sendt dig en fil og mail via din hjemmeside, det er super du gider.
Avatar billede kim1a Ekspert
07. maj 2018 - 15:41 #3
Løsningen blev:

Sheets("Pivot").Activate

With ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange)
.CreatePivotTable TableDestination:=Range("B2"), TableName:="LicensePivotTable"
End With

Simpelthen hoppe over cache-niveauet og dernæst stå i fanen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Stort udvalg af Excel kurser til alle niveauer og jobfunktioner

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





White paper
Sådan: Opgradér din printerløsning uden store investeringer