Hi
momentaner Code:
Sheets("Tabelle2").Activate
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range("A1:A10")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle2"
Zuerst wird auf Tabelle 2 gewechselt, dann ein Diagramm hinzugefügt, etc.
Dann bei Zeile 4
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range("A1:A10")
Wie kann ich da die Range so verändern, dass von Cells(1,1) bis Cells(b,1) ausgewählt wird? Also das es nicht immer von 1 bis 10 geht sondern variieren kann?
Bisherige Versuche: (die nicht funktionierten!)
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range(Cells(1, 1), Cells(b, 1))
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range(Cells(1, 1)& Cells(b, 1))
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range("Cells(1, 1), Cells(b, 1)")
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range(A1:"A"b)
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range(A1:Ab)
";" und ":" habe ich auch bereits ausprobiert.
MfG
|