AW: Diagramm auf verschiedene Sheets
30.11.2007 18:26:15
Christian
Hallo david,
wenn ich das richtig sehe, ist der Datenbereich zusammenhängend, so dass du vielleicht schon _
mit dem folgenden parat kommst:
Sub Dia()
Dim ch As Chart
Dim wks As Worksheet
Set wks = ActiveSheet
Set ch = Charts.Add
With ch
.ChartType = xlXYScatter
.SetSourceData Source:=wks.Range("A4:C19"), PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:=wks.Name
End With
End Sub
in deinem Code must du zusätzlich in den Formeln den Tabellennamen ersetzen. Hier ein Bsp, dass zuerst das obige Dia erstellt und dann noch eine Spalte dazunimmt - macht natürlich wenig Sinn, ist ja aber nur ein Bsp.:
Sub Dia2()
Dim ch As Chart
Dim sc As Series
Dim wks As Worksheet
Set wks = ActiveSheet
Set ch = Charts.Add
With ch
.ChartType = xlXYScatter
.SetSourceData Source:=wks.Range("A5:C19"), PlotBy:=xlColumns
Set sc = .SeriesCollection.NewSeries
sc.XValues = "='" & wks.Name & "'!R5C1:R19C1"
sc.Values = "='" & wks.Name & "'!R5C4:R19C4"
sc.Name = "=""Drehmoment"""
.Location Where:=xlLocationAsObject, Name:=wks.Name
End With
End Sub
Rückmeldung wäre nett
Christian M