Pivot Tabelle Per VBA Makro
03.02.2015 10:51:54
Furkan
ich hab eine Excel File in Tabellenformat und will diese in eine PivotTabelle umwandeln.
Da ich kaum VBA Kentnisse habe, habe ich es mit einem Makro Recorder versucht.
Jedoch taucht immer ein Fehler auf.
Hier der Code:
Sub PivotMakro()
' PivotMakro Macro
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Table1", Version:=xlPivotTableVersion15).CreatePivotTable TableDestination _
:="Sheet10!R3C1", TableName:="PivotTable6", DefaultVersion:= _
xlPivotTableVersion15
Sheets("Sheet10").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable6").PivotFields("Host")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable6").PivotFields("Sever Respond Time")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
"PivotTable6").PivotFields("Sever Respond Time"), "Count of Sever Respond Time" _
, xlCount
With ActiveSheet.PivotTables("PivotTable6").PivotFields( _
"Count of Sever Respond Time")
.Caption = "Average of Sever Respond Time"
.
Function = xlAverage
.NumberFormat = "hh:mm:ss,000"
End With
End Sub
Ich hoffe ihr könnt mir weiterhelfen.
Der Fehler taucht schon im ersten Paragraph auf, wenn ich auf Debug drücke
Viele Grüße
Furkan