Probleme mit Makro -> Pivot Tabelle
06.01.2006 10:23:45
MegadetH
habe ein Problem mit dem Erstellen einer Pivot Tabelle durch ein Makro.
Ich habe zwei Tabellenblätter ("Rohdaten" und "Pivottabelle") in meiner Datei.
Das Makro habe ich selbst wie untenstehend aufgezeichnet.
Mein Problem ist, dass wenn ich das Makro ausführe, das Programm versucht die Pivottabelle in meinem Tabellenblatt "Rohdaten" zu erstellen und ich gefragt werde, ob die Zellen des Zielbereichs überschrieben werden sollen. Auch wenn ich die Inhalte des Tabellenblatts "Pivottabelle" über STRG+A und "Bearbeiten |Zellen löschen" vorher lösche, wird stets versucht die Pivot im Tabellenblatt "Rohdaten" zu erzeugen. :(
Sub Pivoterstellen()
Sheets("Rohdaten").Select
Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Rohdaten!C1:C9").CreatePivotTable TableDestination:=Range("A1"), TableName _
:="PivotTable2"
ActiveSheet.PivotTables("PivotTable2").SmallGrid = False
ActiveSheet.PivotTables("PivotTable2").AddFields RowFields:=Array("Cost ctr", _
"Kontenbezeichnung"), ColumnFields:="Per"
ActiveSheet.PivotTables("PivotTable2").PivotFields(" Value ObjCurr"). _
Orientation = xlDataField
End Sub
Ich hoffe mir kann jemand helfen.
Gruesse,
MegadetH