Fout 1004 tijdens uitvoering bij maken VBA draaitabel

[Offthefield]

Ik zit met een probleem, ik heb een draaitabel gemaakt en hiervan een macro gemaakt
tot dus ver geen probleem, maar als ik dezelfde macro opnieuw wil openen,
dan krijg ik de volgende melding :

Fout 1004 tijdens uitvoering
Eigenschappen PivotTables van klasse Worksheet kan niet worden opgehaald

Kan iemand mij helpen met dit probleem?

bvd

Offthefield

Sub OMZETPERDAG100()
'
' Macro1 Macro
' De macro is opgenomen op 3-2-2012 door cvv.
'
Sheets("INLEESBESTAND").Select
Range("A1").Select
    Sheets("OMZETPD").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    Sheets("INLEESBESTAND").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "INLEESBESTAND!C2:C15").CreatePivotTable TableDestination:= _
        "[OMZETTENPD.xls]OMZETPD!R1:R65536", TableName:="Draaitabel1", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Orderdatum")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Draaitabel1").AddDataField ActiveSheet.PivotTables( _
        "Draaitabel1").PivotFields("Regelbedrag in ordervaluta"), _
        "Aantal van Regelbedrag in ordervaluta", xlCount
    Range("B3").Select
    ActiveSheet.PivotTables("Draaitabel1").PivotFields( _
        "Aantal van Regelbedrag in ordervaluta").Function = xlSum
    Columns("B:B").Select
    Selection.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"
    ActiveWorkbook.ShowPivotTableFieldList = False
    Cells.Select
    With Selection.Interior
        .ColorIndex = 2
        .Pattern = xlSolid
    End With
    Range("B1").Select
End Sub

 

[Elsendoorn2134]

Offthefield,

Je vraag staat al wat langer uit en niemand reageert, dat komt waarschijnlijk omdat het voor ons niet mogelijk om de fout te reconstrueren. We hebben geen voorbeeld bestand, je verteld zelfs niet op welke plek in de macro de fout optreed. Ik stel voor dat je een klein voorbeeld bestand stuurt waardoor wij de fout kunnen reconstrueren. Het debuggen van VBA zonder bestand is niet te doen.

Veel Succes.

 

[Offthefield]

Nee, nog niet opgelost
Momenteel weinig tijd ivm drukke werkzaamheden

Offthefield