Pivot aufgezeichnet - Makro läuft nicht
18.09.2006 12:48:56
Anton
ich habe das erstellen einer Pivot-Tabelle aufgezeichnet.
Während der Aufzeichnung kommen auch richtige Ergebnisse raus.
Nur wenn ich mein aufegzeichnetes Makro laufen lasse, schmiert es immer an der selben Stelle ab.
Wer kann mir bitte helfen den Mist der Makroaufzeichnung zu korrigieren?
Das hier wird im Debugger gelb angeleuchtet:
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array("Pers-Nr.", _
"Nachname", "Vorname", "Daten")
Hier der Code:
Sub L_ErweitertPivot_erstellen()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle1!C1:C13").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array("Pers-Nr.", _
"Nachname", "Vorname", "Daten")
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Answered")
.Orientation = xlDataField
.Caption = "Summe - Answered"
.Position = 1
.
Function = xlSum
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Skillset Work Time")
.Orientation = xlDataField
.Caption = "Summe - Skillset Work Time"
.Position = 2
.
Function = xlSum
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("TalkTime")
.Orientation = xlDataField
.Caption = "Summe - TalkTime"
.Position = 3
.
Function = xlSum
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"Post Call Proces. Time")
.Orientation = xlDataField
.Caption = "Summe - Post Call Proces. Time"
.Position = 4
.
Function = xlSum
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Average Talk Time")
.Orientation = xlDataField
.Caption = "Mittelwert - Average Talk Time"
.
Function = xlAverage
End With
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel
ActiveSheet.PivotTables("PivotTable1").Format xlReport3
Application.CommandBars("PivotTable").Visible = False
End Sub
=================================================================================
Laufzeitfehler 1004:
Die AddFields-Methode des PivotTable-Objektes konnte nicht ausgeführt werden.
Ich bin Euch sehr dankbar für Eure Hilfe.
Servus,
Anton