Autor: Peter Haserodt  --- Aus Excel VBA - Gruppe: Häufige Fragen

Diagramm (1) Datenquelle ändern

Autor: Peter Haserodt - Erstellt: --      - Letzte Revision: --Gruppenthema: 3 Folgen 1 2 3 Sie sind in Folge:1
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
 ABCD
1    
2 NurSo1aNurso2a 
3 3769 
4 9479 
5 3214 
6 3637 
7 1096 
8    
9    
10    
11 NurSo1bNurso2b 
12 3769 
13 9479 
14 3214 
15 3637 
16 1096 
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


Dieses Thema hat weitere Beiträge

Diagramm (1) Datenquelle ändern
Diagramm (2) Als Gif Exportieren
Diagramm (3) In Userform im ImageControl

Weitere Artikel der Gruppe: Häufige Fragen Aus Excel VBA
Nach oben