Office: Diagramm als eigenes Blatt und Daten aus Array

Rammbock · 15. Januar 2011

Hallo Forum,

ich habe folgendes Problem und ich finde keine passende Lösung.

Also ich möchte gerne ein neues Diagramm in einem eigenen Arbeitsblatt erstellen. Das Diagramm soll ein X - Y Diagramm sein und die Daten werden aus zwei Arrays ausgelesen. In das Diagramm sollen zwei Kurven. Vielleicht kann mir jemand weiterhelfen. Vielen Dank.

:)

NoNet · 17. Januar 2011

Hallo Rammbock,

hier ein Beispielcode zum Erstellen eines (Säulen-)Diagramms aus den Werten eines ARRAYs :

Code:

Sub DiagrammAusArrayInNeuesBlatt()
'17.01.2011, NoNet - www.excelei.de
Dim ar1(10), ar2(10)
Dim strT As String, intT As Integer

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered 'Säulen
ActiveChart.Location Where:=xlLocationAsNewSheet 'Auf neues Blatt
'ActiveChartObjects(1).Activate

For intT = LBound(ar1) To UBound(ar1)
'Hier werden die 2 Arrays mit Zufallszahlen zwischen 10 und 29 befüllt
Randomize Timer 'Zufallsgenerator "mischen"
ar1(intT) = Int(Rnd() * 20) + 10 'Zufallswerte für erste Datenreihe
ar2(intT) = Int(Rnd() * 20) + 10 'Zufallswerte für zweite Datenreihe
Next

'Erste Datenreihe erstellen :
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "Reihe 1"
ActiveChart.SeriesCollection(1).Values = ar1

'Zweite Datenreihe erstellen :
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "Reihe 2"
ActiveChart.SeriesCollection(2).Values = ar2
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit xlColumnClustered habe ich den Typ auf ein Säulendiagramm festelegt, falls Du einen anderen Type bevorzugst, dann schau in der VBA-Hilfe unter ChartType - Series.ChartType-Eigenschaft - (xlChartType) nach !

Rammbock · 17. Januar 2011

Vielen Dank!

Office: Diagramm als eigenes Blatt und Daten aus Array

Diagramm als eigenes Blatt und Daten aus Array

Diagramm als eigenes Blatt und Daten aus Array

Diagramm als eigenes Blatt und Daten aus Array - Similar Threads - Diagramm Blatt Daten

Diagramm als Vollbild?

Drucken mehrerer Diagramm-Blätter auf eine Seite

Achsenskalierung: Werte aus Zelle holen (Diagramm in eigenem Blatt)

Grösse bei Diagramme Blatt

Diagramm Blatt mit (neuen und besseren) ActiveX ScrollBar ausstatten nicht möglich!

Blatt kopieren: dynamischen Diagramm - Bereichsnamen weg

Werte-Blatt und Diagramm-Blatt in neue Mappe kopieren