Diagrammtitel als Bezug
24.03.2007 18:10:00
Jo
ich habe folgendes Problem: Ich möchte, dass der Diagrammtitel als Bezug zu einer bestimmten Zelle ausgegeben wird; in diesem Beispiel soll er sich die Daten aus Zelle A3 holen. Verwende ich diese Zeile, funktionierts:
chtChart.ChartTitle.Text = "=Tabelle1!R1C3"
Nun möchte ich hier aber gern eine Variable einbauen. Ich hab's mit folgender Zeile versucht:
chtChart.ChartTitle.Text = "=Tabelle1!R1C[" & n & "]"
klappt aber leider nicht. Wo liegt der Fehler?
Sub Diagramm_erstellen()
Dim chtChart As Chart
Dim n As Integer
n = 3
ActiveSheet.ChartObjects.Add Left:=60, Top:=90, _
Width:=400, Height:=225
Set chtChart = ActiveSheet.ChartObjects(1).Chart
chtChart.ChartType = xlColumnClustered
chtChart.SetSourceData Source:=ActiveSheet.Range("A1:B6")
chtChart.HasTitle = True
chtChart.ChartTitle.Text = "=Tabelle1!R1C[" & n & "]"
Set chtChart = Nothing
End Sub
Schonmal vielen Dank im Voraus!
Jo