Pivot im Makroproblem...
11.05.2009 14:28:13
Beat
ich habe hier ein Makro, nicht erschrecken, ich habe es mit dem Recorder aufgenommen. Es wird immer Debugged, und ich glaub auch warum...nähmlich, weil die PivotTable1 schon irgendwo existiert..Was muss ich ändern, damit mir Excel einfach eine neue Pivottabelle einfügt?
Vielen Dank für eure Hilfe!
Hier das Makro, der fehler ist fett hervorgehoben!
Gruss Beat
Sub Schaltfläche2_BeiKlick()
' Schaltfläche2_BeiKlick Makro
' Makro am 11.05.2009 von j.egeter aufgezeichnet
Sheets("Tabelle3").Select
Cells.Select
Range("H21").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Tabelle1").Select
Columns("A:I").Select
Range("I1").Activate
Selection.Copy
Sheets("Tabelle3").Select
Columns("A:A").Select
ActiveSheet.Paste
Columns("E:I").Select
Range("I1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("E1").Select
With ActiveCell.Characters(Start:=1, Length:=9).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("E1").Select
ActiveCell.FormulaR1C1 = "Änderungen"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=IF(ISERROR(RC[-2]-RC[-3]),"""",RC[-2]-RC[-3])"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E15396")
Range("E2:E15396").Select
Columns("E:E").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:C").Select
Range("C1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("E:IV").Select
Selection.Delete Shift:=xlToLeft
Columns("A:C").Select
Range("C1").Activate
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Tabelle3!C1:C3").CreatePivotTable TableDestination:= _
"'[Daten bearbeiten.xls]Tabelle3'!C5:C216", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Pivottable1").AddFields RowFields:="Parameter", _
ColumnFields:="Identifikation"
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Änderungen")
.Orientation = xlDataField
.Caption = "Summe von Änderungen"
.
Function = xlSum
End With
ActiveWindow.SmallScroll Down:=0
End Sub
Anzeige