anna2701
Goto Top

VBA mehrere Diagramme auf einem Tabellenblatt erzeugen

Ich habe ein neues Problem.
Ich erstelle mit meinem Code ein neues Tabellenblatt, wo das Diagramm drauf erzeugt wird. Ich möchte aber bis zu 8 Diagramme auf diesem Tabellenblatt anzeigen lassen.


DiagrName = "DiagrammNutzungsNebenzeit"   
i = 40 
j = 1 
k = 38 
l = 2 
Cells(13, 1).Select 
ActiveSheet.Shapes.AddChart.Select 
ActiveChart.ChartType = xlColumnClustered 
ActiveChart.Location xlLocationAsNewSheet, "DiagrammNutzungsNebenzeit"   
ActiveChart.SetSourceData Source:=Range(Tabelle4.Cells(i, j), Tabelle4.Cells(i, 5)) 
ActiveChart.SeriesCollection(1).XValues = Tabelle4.Range(Tabelle4.Cells(k, l), Tabelle4.Cells(k, 5)) 
ActiveChart.CopyPicture (xlScreen) 
Sheets("DiagrammNutzungsNebenzeit").Paste  

Kann ich mit dem Code arbeiten oder muss ich den komplett neu schreiben?

Content-ID: 257898

Url: https://administrator.de/contentid/257898

Ausgedruckt am: 25.11.2024 um 19:11 Uhr

colinardo
Lösung colinardo 17.12.2014 aktualisiert um 12:22:50 Uhr
Goto Top
Hallo Anna,
hier ein Beispiel-Sheet: create_multiple_charts_257898.xlsm

Grüße Uwe
Anna2701
Anna2701 17.12.2014 um 12:22:57 Uhr
Goto Top
Danke Uweee face-smile