Dynamisch ein Diagramm anpassen


Das anpassen einer Datenquelle ist recht einfach.
Man muss nur das richtige Objekt ansprechen.

Erstellen Sie für das Beispiel folgende Tabelle und erstellen Sie ein Diagramm auf dem Tabellenblatt.

Tabelle1

A B C D 1         2   NurSo1a Nurso2a   3   37 69   4   94 79   5   32 14   6   36 37   7   10 96   8         9         10         11   NurSo1b Nurso2b   12   37 69   13   94 79   14   32 14   15   36 37   16   10 96   17

Ziel ist es nun, das Diagramm auf den Blauen Bereich anzusetzen. Erstellen Sie folgenden Code:

	
Public Sub DiagrammQuelleAendern()
	Dim oBlatt As Worksheet, oDia As ChartObject
	Set oBlatt = Worksheets("Tabelle1")
	With oBlatt
		Set oDia = .ChartObjects(1)
		oDia.Chart.SetSourceData .Range("B11:C16")
	End With
End Sub

Kurze Anmerkung:

Selbstverständlich sind im Beispielcode noch entsprechende Fehlerabfangungen einzubauen aber dies überlasse ich ihnen.

Weiterhin ist dies nur ein Ansatz für Sie.
Selbstverständlich können Sie auch auf eine Datenquelle eines anderen Tabellenblattes verweisen.
Wichtig ist nur, dass Sie das richtige ChartObject ansprechen (wenn z.B. mehrere Charts auf einem Blatt sind)

Viel Spass beim Experimentieren