Makro läuft nur auf einem Tabellenblatt
01.10.2007 10:04:38
Julia
Meine xls hat 2 Tabellenblätter
1. Blatt: heist Report
Hier ist ein Button der das Makro ausführen soll
Er bringt aber immer den Fehler:
Die Pivot Tables-Eigenschaft des Woksheet Objects kann nicht zugeordnet werden.
Bin ich aber auf dem 2. Tabellenblat (heisst Pivot)
Und wenn ich hier über das Makro-Menü das Makro ablaufen lasse klappt alles prima
Was muss ich tun um aus dem 1. Tabellenblatt das Makro laufen zu lassen. Weil hier ist der Button und solte auch hier bleiben
Sub neu_pivot()
' neu_pivot Makro
' Makro am 01.10.2007 von julia aufgezeichnet
Workbooks.Open Filename:=ThisWorkbook.Path & "\data.xls"
Range("L11").Select
ActiveCell.FormulaR1C1 = "1000"
Range("F1").Select
Selection.Copy
Columns("F:F").Select
Application.CutCopyMode = False
Selection.Copy
Columns("J:J").Select
ActiveSheet.Paste
Range("J1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "response time in sec"
Range("K9").Select
Columns("J:J").EntireColumn.AutoFit
Range("L11").Select
Selection.Copy
Columns("J:J").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide, SkipBlanks _
:=False, Transpose:=False
Selection.Font.ColorIndex = 0
Range("J1").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select
ActiveWorkbook.Save
ActiveWindow.Close
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Range("A31").Select
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
Range("A35").Select
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
Range("A40").Select
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
Sheets("Pivot").Select
End Sub