Verwendung von Filtertype: = xlValueIsGreaterThan in Excel 2016 VBA

Question

Ich habe eine Tabelle, die

Name Order Amount Location 
Grace  120000  new jersey 
Tom   200000  baltimore 
Rick  5000000  hyderabad 
Hari  600000  denver 
Raj  4000000  Delhi 
Victoria 300000  New York 

sieht wie folgt aus mir einen Dreh mit allen drei Feldern erstellt, aber ich kann nicht erfolgreich verwenden, um den PivotFilters.Add Filtertype: = xlValueIsGreaterThan

Option erfolgreich ... was ich falsch mit meinem Code?

Sub addFields() 
    With ActiveSheet.PivotTables(1) 
'First row field 
    With .PivotFields("Name") 
.Orientation = xlRowField 
.Position = 1 
    End With 

'Report Filter field 
With .PivotFields("Location") 
.Orientation = xlPageField 
    .Position = 1 
    End With 

    'Order Amount or numerical data in the Values field 
    .AddDataField ActiveSheet.PivotTables(1).PivotFields("Order Amount"), _ 
    "Sum of Amount", xlSum 
    End With 


With .PivotFields("Sum of Amount").PivotFilters.Add filterType:=xlValueIsGreaterThan DataField :="Sum of Amount" value1:=4000000 




End With 

    End Sub 

Answer 1

Test dies in einem Ort Ihrer letzten mit Anweisung

with .PivotFields("Name").PivotFilters.Add2 _ 
    Type:=xlValueIsGreaterThan, DataField:=ActiveSheet.PivotTables(_ 
    "PivotTable1").PivotFields("Sum of Order Amount"), Value1:=4000000