title image


Smiley hmmmm
Das geht aber leider nicht....habe jetzt folgenden Code genommen und er nennt es immer noch "Diagramm1" usw. Bist Du sicher, dass es so geht wie du es beschrieben hast, NoNet?? Der Tipp von Beverly muss nämlich von mir erst noch verstanden werden :-)



Sub Grafik_1()





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

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

:="Test1", DefaultVersion:=xlPivotTableVersion10

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

ActiveSheet.Cells(3, 1).Select

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

ActiveSheet.PivotTables("Test").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: