Dynamisieren - Gleiches Diagramm für alle Blätter
03.08.2008 05:21:00
Matthias
ich habe in einer Arbeitsmappe mehrere Blätter und ich möchte für jedes Blatt ein Diagramm erstellen.
Das Diagramm ist eigentlich immer dasselbe, nur der Inhalt ändert sich halt, abhängig von dem jeweiligen Blatt.
Mit dem Makrorekorder habe ich die Erstellung eines Diagrammes aufgezeichnet und möchte das erhaltene Makro soweit verallgemeinern, daß es mit jedem Sheet arbeiten soll:
Aus
ActiveChart.SetSourceData Source:=Sheets("IDC_2").Range("A2:F520"), PlotBy _
:=xlColumns
habe ich gemacht:
ActiveChart.SetSourceData Source:=ActiveSheet.Range("A2:F520"), PlotBy _
:=xlColumns
Damit erhalte ich aber nur die Fehlermeldung "Objekt unterstützt diese Eigenschaft oder Methode nicht".
Was mache ich falsch ?
Bei folgender Aktion soll auch immer der Name des aktuellen Sheets anstatt "IDC_2" verwendet werden, was muß ich hier ändern ? (erstellte Textbox besitzt Inhalt wie in Zelle A1 des aktuellen Sheets)
With ActiveChart.TextBoxes.Add(359, 220, 127, 17)
.Select
.AutoSize = True
.Formula = "=IDC_2!$A$1"
Zum Schluß sollte das Diagramm immer den Namen des aktuellen Sheets erhalten, ergänzt um die Buchstabenfolge "Dia" zur Unterscheidung. Was muß ich dazu im Makro einfügen ?
Vielen Dank, Matthias