title image


Smiley Makro erstellt mittels Pivot neue Mappen --> Bennenung der Mappen
Hallo Leute,





ich erstelle mit einem Makro (ich gebe zu, es ist aufgenommen) eine Pivottabelle und die dazugehörige Tabelle. Das funktioniert auch alles super!

Nun nennt Excel jedoch die neuen Mappen immer mit "Diagramm1" und "Tabelle1" kann ich auch bestimmen, wie die heißen sollen??



Hier der Quellcode:



Sub Grafik_1()





ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _

"Wertetabelle!R1C3:R300C3").CreatePivotTable TableDestination:="", TableName _

:="PivotTable1", DefaultVersion:=xlPivotTableVersion10

ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)

ActiveSheet.Cells(3, 1).Select

ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Date"

ActiveSheet.PivotTables("PivotTable1").PivotFields("Date").Orientation = _

xlDataField

Charts.Add

ActiveChart.Location Where:=xlLocationAsNewSheet

With ActiveChart.PivotLayout.PivotTable.PivotFields("Date")

.PivotItems("(Leer)").Visible = False

End With

ActiveChart.PlotArea.Select

ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:= _

"News per Day"

ActiveChart.HasPivotFields = False

Sheets("Wertetabelle").Select

ActiveWindow.ScrollRow = 33

ActiveWindow.ScrollRow = 27

ActiveWindow.ScrollRow = 24

ActiveWindow.ScrollRow = 19

ActiveWindow.ScrollRow = 16

ActiveWindow.ScrollRow = 13

ActiveWindow.ScrollRow = 8

ActiveWindow.ScrollRow = 5

ActiveWindow.ScrollRow = 2

Range("A2").Select

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: