Fout 5 Ongeldige procedure-aanroep of ongeldig argument

[Meppedan]

Hallo,

Sinds enkele dagen, ineens van de ene op de andere dag, lukt het niet meer de macro in excel uit te voeren om bepaalde data te genereren/ordenen.
Mogelijk dat het te maken heeft met een upgrade van Excel. De macro is detijds gemaakt in Excel 2003, maar begin dit jaar draait Excel 2007 op de pc.
Ik heb geprobeerd i.p.v. PivotCaches.Add, PivotCaches.Create te gebruiken, maar helaas en tevens het veranderen van de PivotTableVersion gaf niet het gewenste resultaat. Hieronder het stukje code, waarop het fout gaat --> Fout 5 Ongeldige procedure-aanroep of ongeldig argument.

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Range(Cells(1, 1), Cells(RowIndex - 1, 16))).CreatePivotTable TableDestination:= _
"'[Planning Overzicht.xls]Resultaat Leverdatum'!R5C1", TableName:="PivotTable2", _
DefaultVersion:=xlPivotTableVersion10

Weet iemand wat er mogelijk fout is met deze code in vergelijk met Excel 2007 (mits dat de oorzaak is)?

Met vriendelijke groet,
Danny

 

[OctaFish]

Sinds enkele dagen
....
maar begin dit jaar draait Excel 2007 op de pc.

Het jaar is al wat ouder dan 'enkele dagen' .
Het kijkt een stuk handiger als je het bestand er bij doet. Of in ieder geval de hele code. Want zo wordt het lastig puzzelen.
En code graag opmaken met de CODE knop, want je wilt hem tenslotte wel leesbaar houden voor ons.

 

[Meppedan]

Beste OctaFish,

Hierbij de excel file.
Hopelijk maakt dat het duidelijker.

 

[OctaFish]

Je bestandje gaat al fout op de regel

    r.Sort Key1:=Worksheets("Gegevens PM").Range("C1"), Key2:=Worksheets("Gegevens PM").Range("A1")

Wat logisch is, want daarvoor selecteer je de CurrentRegion op <Gegevens PM>, en dat blad is leeg.

 

[Meppedan]

Beste OctaFish,

Nogmaals het bestand, maar dan met data in het tabblad gegevens PM.
Nadat er op de knop bewerken is gedrukt, is te zien dat de foutcode 5 optreedt.

 

[HSV]

Het bestand heeft nu waarschijnlijk een .xlsm extensie.

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        Range(Cells(1, 1), Cells(RowIndex - 1, 16))).CreatePivotTable TableDestination:= _
        "'[Planning Overzicht[COLOR=#ff0000].xlsm[/COLOR]]Resultaat Leverdatum'!R5C1", TableName:="PivotTable2", _
        DefaultVersion:=xlPivotTableVersion10

 

[Meppedan]

Beste Harry,

Eerst dacht ik dat het inderdaad hier aan lag, maar dat is niet het geval voor zover ik kan zien.
De extensie van het betand is .xls en aanpassen van de macro door de extensie te wijzigen werkt in dat geval ook niet.
Zijn er mogelijk andere oorzaken. waardoor de foutmelding optreedt?

 

[snb]

Begin eerst eens met alle verwijzingen ondubbelzinnig te maken:

in plaats van

     ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        Range(Cells(1, 1), Cells(RowIndex - 1, 16))).CreatePivotTable TableDestination:= _
        "'[Planning Overzicht.xls]Resultaat Leverdatum'!R5C1", TableName:="PivotTable2", _
        DefaultVersion:=xlPivotTableVersion10

    ActiveWorkbook.PivotCaches.Add(xlDatabase, sheets("gegevens PM").Cells(1).currentregion.resize(,16)).CreatePivotTable Sheets("Resultaat Leverdatum).cells(5,1), "PivotTable2",xlPivotTableVersion10

Er kan soswieso nogal wat in de code gewied worden.

 

[Meppedan]

Het probleem is opgelost. Met een update van windows zijn er schijnbaar standaard instellingen meegekomen, waardoor een draaitabel
ineens standaard ging verwijzen naar "aantal van..." i.p.v. "som van...". De macro is hierop aangepast en probleem komt niet meer voor.

Groeten,
Danny