probleem met draaitalbel in macro

[cassie1975]

hallo

ik maak een macro aan om automatisch een draatabel aan te maken.
Als ik de macro echter run, krijg ik bij het begin (in het vet) al onmiddellijk een foutmelding. Waar loopt het fout want als ik het niet koppel aan een macro loopt de aanmaak van de draaitabel perfect.
Ik werk wel met een xls-document en niet met xlsx-document, mss zijn 26000 dan teveel???????

Dit is de code :

Sub Macro4()
'
' Macro4 Macro
'
' Keyboard Shortcut: Ctrl+g
'
    [B]ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sc1!R1C1:R26000C5", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="lijst met gewijzigde artikelen!R1C1", TableName:= _
        "PivotTable5", DefaultVersion:=xlPivotTableVersion10[/B]    
    Sheets("lijst met gewijzigde artikelen").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("PivotTable5").PivotFields("Part ID")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
        "PivotTable5").PivotFields("Days Late"), "Count of Days Late", xlCount
    With ActiveSheet.PivotTables("PivotTable5").PivotFields("Count of Days Late")
        .Caption = "Sum of Days Late"
        .Function = xlSum
    End With
    Range("F8").Select
    ActiveCell.FormulaR1C1 = "DONE"
    Range("F9").Select
End Sub

Alvast bedank voor alle hulp
Nico

 

[Elsendoorn2134]

Nico,

Ik weet niet welke foutmelding je krijgt maar probeer eens "Sc1!$A:$E" als sourcedata
dit zou het zelfde resultaat moeten geven (de kolommen A t/m E)

Veel Succes.