18.08.2018, 11:40
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
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