Totalen van kolom in pivottabel verbergen

[Dolfke]

Hallo allemaal,

Door een zelfgemaakte macro laat ik een pivottabel opbouwen.

Deze geeft bijna weer wat ik moet hebben , maar ik krijg de laatste fijn tune niet op punt.

Onderstaand de code voor mijn pivottabel.

If WorksheetFunction.CountA(Cells) > 0 Then
  LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
End If

Set WSD = Worksheets("Sheet1")
    
    Set PRange = WSD.Cells(1, 1).Resize(LastRow, LastCol)
    Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:= _
        xlDatabase, SourceData:=PRange)
            
     Set PT = PTCache.CreatePivotTable(TableDestination:=Sheets("Sheet6").Range("A3"), TableName:="PivotTable1")

    PT.ManualUpdate = True

    With PT.PivotFields("Rijtijd")
        .Orientation = xlDataField
        .Function = xlSum
        .Position = 1
    End With
    
       ActiveWorkbook.ShowPivotTableFieldList = True
    With PT.PivotFields("Chauffeur")
        .Orientation = xlRowField
        .Position = 1
    End With
    With PT.PivotFields("Test")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With PT.PivotFields("  L-R" & Chr(10) & "gestuurd")
        .Orientation = xlColumnField
        .Position = 2
    End With
    With PT.PivotFields("Weeknummer")
        .Orientation = xlPageField
        .Position = 1
    End With
    
    PT.ManualUpdate = False
    PT.ManualUpdate = True

Zoals je in de code kan zien maak ik gebruik van 2 kolommenvelden.

Nu krijg ik in mijn pivottable voor elke kolom die erbij komt een totaal maar dit is juist wat ik niet wil .
Iemand een idee hoe ik dit kan weglaten via vba ?

Bedankt

Dolfke

 

[Dolfke]

Heb een hele tijd gezocht naar een antwoord en niks gevonden .

En nu 5 min. later dat ik het erop zet heb ik het gevonden .

With PT.PivotFields("Test")
        .Orientation = xlColumnField
        .Position = 1
        [COLOR="red"].Subtotals(1) = False[/COLOR]
    End With
    With PT.PivotFields("  L-R" & Chr(10) & "gestuurd")
        .Orientation = xlColumnField
        .Position = 2
        [COLOR="Red"].Subtotals(2) = False[/COLOR]
    End With

Toch bedankt allemaal

Groetjes