Herbers Excel-Forum - das Archiv

VBA: Diagramm-Source-Data ändern

Bild

Betrifft: VBA: Diagramm-Source-Data ändern
von: Tobias
Geschrieben am: 27.10.2003 12:52:10
Hi!

ich möchte die Datenquelle meines Diagramms schneller ändern können, falls ich eine Zeile einfüge... wie muss ich folgenden Code ändern?

Public zeile, spalte As Integer



Sub Name()
zeile = 5
spalte = 3
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Values = _
"=(Sheet1!R5C3,Sheet1!R5C7,Sheet1!R5C11,Sheet1!R5C15,Sheet1!R5C19,Sheet1!R5C23,Sheet1!R5C27,Sheet1!R5C31)"
ActiveChart.SeriesCollection(2).Values = _
"=(Sheet1!R5C4,Sheet1!R5C8,Sheet1!R5C12,Sheet1!R5C16,Sheet1!R5C20,Sheet1!R5C24,Sheet1!R5C28,Sheet1!R5C32)"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Name"
End With
End Sub



ich möchte, dass dann sowas ähnliches rauskommt:

ActiveChart.SeriesCollection(1).Values = _
"=(Sheet1!R"zeile"C"spalte",Sheet1!R"zeile"C"spalte+3"...
Bild

Betrifft: AW: VBA: Diagramm-Source-Data ändern
von: Tobias
Geschrieben am: 27.10.2003 14:14:22
ok, habe den Fehler gefunden mit:
ActiveChart.SeriesCollection(1).Values = _
"=(Sheet1!R" & (zeile) & "C" & (spalte) & ",Sheet1!R5C7,Sheet1!R5C11,Sheet1!R5C15,Sheet1!R5C19,Sheet1!R5C23,Sheet1!R5C27,Sheet1!R5C31)"
gehts
 Bild