Diagramm in neuer Registrierkarte erzeugen

[Sandrof90]

Hallo zusammen,
Ich nutze zur Erstellung eines Diagrammes folgendes Makro:

Sub DiagrammErstellen()
Dim i, lastrow, X, Y, spalten, cht
spalten = Array("B", "C", "D")
For i = 0 To UBound(spalten)
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
X = "A39:A" & lastrow
Y = spalten(i) & "39:" & spalten(i) & lastrow

Set cht = ActiveSheet.Shapes.AddChart
cht.Chart.ChartType = xlXYScatterSmoothNoMarkers
cht.Chart.SetSourceData Source:=Sheets(1).Range(X & "," & Y)
cht.Chart.SeriesCollection(1).Name = "='" & ActiveSheet.Name & "'!$" & spalten(i) & "$1"
cht.Left = Range("R2").Left
cht.Top = Range("R2").Offset(i * 14, 0).Top
Next
End Sub

Ich würde gern wissen, wie ich den Code verändern muss, um die Diagramme nicht im aktuellen Arbeitsblatt sondern in einem separaten Arbeitsblatt (Registrierkarte Diagramme) einzufügen.

Beste Grüße Sandro

[Kuwer]

Hallo Sandro,

vielleicht so:

Set cht = Charts.Add

Gruß Uwe

[Sandrof90]

vielleicht so:

Set cht = Charts.Add

Gruß Uwe

Funktioniert leider nicht :/

[Case]

Hallo, :19:

habe dir mal ein Beispiel gemacht - einmal mit dem CodeName des Tabellenblattes und einmal mit dem Registername.


  Diagramm_Chart_erstellen_im_Tabellenblatt_oder_als_extra_Diagrammblatt.xlsm (Größe: 15,42 KB / Downloads: 6)

[Sandrof90]

habe dir mal ein Beispiel gemacht 

Optimal Besten Dank !!

Viele Grüße Sandro