Sub test()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range(Cells(2, 2), Cells(3, 15)), _
PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
End Sub
| VBA-Code: |
| Sub DiagrammErstellen() Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range("B2:C15"), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1" ActiveChart.HasLegend = True ActiveChart.Legend.Position = xlRight End Sub Gruß Jürgen
AW: Dann schreibe es einfach so!
Lars
Hallo, das will ich ja eben nicht, da die Zellen nicht immer gleich sind. Eigentlich steht bei mir ...Range(cells(StartReihe, StartSpalte), cells(EndeReihe,EndeSpalte)). StartSpalte, StartReihe etc. gebe ich über eine inputbox an. Daher kann ich nicht z.B. A1:C13 angeben. Gruß Lars
AW: Dann schreibe es einfach so!
Erich
Hi Lars, probier mal Die Punkte vor Cells sorgen dafür, Zellen der Tabelle2 angesprochen werden.
AW: Dann schreibe es einfach so!
Lars
Klappt. Danke. |
Sub test()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
With Sheets("Tabelle2")
ActiveChart.SetSourceData Source:= _
.Range(.Cells(2, 2), .Cells(3, 15)), PlotBy:=xlColumns
End With
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
End Sub
Die Punkte vor Cells sorgen dafür, Zellen der Tabelle2 angesprochen werden.
Wenn da nur Cells steht, werden Zellen des akt. Blattes angesprochen.
Man könnte länglicher auch schrieben:
Sheets("Tabelle2").Range(Sheets("Tabelle2").Cells(2, 2), Sheets("Tabelle2").Cells(3, 15))
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort