also in meiner Übungsdatei klappt es mit
ActiveChart.SetSourceData Source:=Range("Tabelle1!" & bella & ":$A$13")
nun wollte ich diese Zeile auf die Richtige Datei übertrage und da Meckert er
den Unterschieden zur Übungsdatei sind 2 Diagramme pro Arbeitsblatt und 34 Arbeitsblätter
in der Übungsdatei nur ein Diagramm und ein Arbeitsblatt
achja die Definition von bella
Dim bella As String
bella = Cells(1, 4).Text
ich habe auch schon den Tipp erhalten von
ActiveSheet.ChartObjects("Diagramm 1").Chart.SetSourceData Source:=Worksheets("adidas 2").Range(bella & ":A21")
Was im Prinzip geht, aber den Diagramm Typ ändert, und das will ich eben nicht
Alternativ Vorschläge?