Pivot Tabelle erstellen mit VBA
Melisa
wollte eine Pivot Tabelle über VBA erstellen, nur leider kommt ständig die Fehlermeldung "Ein Modul hat einen unzuläss
igen Typ".
Hat mir jemand einen Tipp?
Sub PivotTabelle()
Dim ptTable As PivotTable
Dim ptCache As PivotCache
Selection.AutoFilter Field:=13, Criteria1:="offen"
Set ptCache = AchtiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:="A:M" & _
ActiveSheet.UsedRange.Rows.Coung)
Set ptTable = ptCache.CreatePivotTable _
(TableDestination:=AchtiveSheet.Range("P1"), _
TableName:="MyPivotTable")
With ptTable
.PivotFields("MASSN_ID").Orientation = xlRowField
.PivotFields("BEA/BEF-Nr.").Orientation = xlRowField
.PivotFields("Summe von BEA/BEF-Nr.").Orientation = xlCoumnField.Funtion = xlCount
End Sub
Bin für jede Hilfe sehr sehr sehr dankbar... liebe grüße
M.