ich möchte in ein Tabellenblatt mehrere Diagramme einfügen und versuche das und die anschliessende flexible Datenzuordnung mit nachfolgendem Code:
Sheets("Tabelle1").Activate
For i = 1 To AktuelleNummer
Worksheets("Tabelle1").ChartObjects.Add(50, 50, 50, 50).Name = "Graphische Datenauswertung" & i
ActiveSheet.ChartObjects("Graphische Datenauswertung" & i).Activate
ActiveChart.ChartWizard Worksheets("Daten").[flexibles Range], xlLine, 4, xlColumns, 1, 1
Next i
Das Makro fügt mir die entsprechende Menge (benannter) Diagramme ein, ich kann jedoch keine Datenbereiche zuordnen.
Der Fehler tritt in der 4. Zeile auf:
Laufzeitfehler '1004'
Die ChartObjects-Eigenschaft des Worksheet-Objektes kann nicht zugeordnet werden
Kann mir jemand einen Tip geben was hier falsch ist (oder eventuell eine andere Lösung vorschlagen)?
Gruß, Torsten