Thema: Methode Formula für Objekt Series fehlgeschlagen

Hallo,
mit meinem Macro möchte ich ein zuvor erstelltes Diagramm in eine neue Arbeitsmappe kopieren. Um den Verweis auf die alte Arbeitsmappe zu entfernen, ersetzte ich den .formula-Wert mittels Replace

'Daten kopieren
Workbooks("Auswertungstool DaVis.xlsm").Sheets(i + 2).Copy after:=Workbooks(neuName).Sheets(Workbooks(neuName).Worksheets.Count)
Workbooks("Auswertungstool DaVis.xlsm").Sheets(UserForm1.ListBox1.ListCount + 1 + tt).Copy before:=Workbooks(neuName).Sheets(1)
Workbooks(neuName).Sheets(1).ChartObjects(1).Chart.SeriesCollection(1).Formula = Replace(Workbooks(neuName).Sheets(1).ChartObjects(1).Chart.SeriesCollection(1).Formula, "Auswertungstool DaVis.xlsm", neuName, , , vbTextCompare)
Workbooks(neuName).Sheets(1).ChartObjects(1).Chart.SeriesCollection(2).Formula = Replace(Workbooks(neuName).Sheets(1).ChartObjects(1).Chart.SeriesCollection(2).Formula, "Auswertungstool DaVis.xlsm", neuName, , , vbTextCompare)
tt = tt + 1

nun erscheint bei mir folgender Fehler: Die Methode 'Formula' ist für das Objekt 'Series' fehlgeschlagen.
Wenn ich nun im Debugmodus mit F5 das Programm erneut ausführen, macht es genau das was es soll. Meine Frage ist nun, warum er am Anfang meckert und es hinterher nicht mehr tut?
Hat da jemand eine Idee?
gibt Replace vielleicht einen string aus und .formula braucht ein range oder so?
Aber warum funktioniert es dann hinterher?
Vielen Dank schon mal

Workbooks(neuName).Sheets(1).ChartObjects(1).Chart.SeriesCollection(1).Formula = Replace(Workbooks(neuName).Sheets(1).ChartObjects(1).Chart.SeriesCollection(1).Formula, "Auswertungstool DaVis.xlsm", neuName, , , vbTextCompare)

sry, das hier ist die Zeile, in der er meckert

Hallo,
mit meinem Macro möchte ich ein zuvor erstelltes Diagramm in eine neue Arbeitsmappe kopieren. Um den Verweis auf die alte Arbeitsmappe zu entfernen, ersetzte ich den .formula-Wert mittels Replace

'Daten kopieren
Workbooks("Auswertungstool DaVis.xlsm").Sheets(i + 2).Copy after:=Workbooks(neuName).Sheets(Workbooks(neuName).Worksheets.Count)
Workbooks("Auswertungstool DaVis.xlsm").Sheets(UserForm1.ListBox1.ListCount + 1 + tt).Copy before:=Workbooks(neuName).Sheets(1)
Workbooks(neuName).Sheets(1).ChartObjects(1).Chart.SeriesCollection(1).Formula = Replace(Workbooks(neuName).Sheets(1).ChartObjects(1).Chart.SeriesCollection(1).Formula, "Auswertungstool DaVis.xlsm", neuName, , , vbTextCompare)
Workbooks(neuName).Sheets(1).ChartObjects(1).Chart.SeriesCollection(2).Formula = Replace(Workbooks(neuName).Sheets(1).ChartObjects(1).Chart.SeriesCollection(2).Formula, "Auswertungstool DaVis.xlsm", neuName, , , vbTextCompare)
tt = tt + 1

nun erscheint bei mir folgender Fehler: Die Methode 'Formula' ist für das Objekt 'Series' fehlgeschlagen.
Wenn ich nun im Debugmodus mit F5 das Programm erneut ausführen, macht es genau das was es soll. Meine Frage ist nun, warum er am Anfang meckert und es hinterher nicht mehr tut?
Hat da jemand eine Idee?
gibt Replace vielleicht einen string aus und .formula braucht ein range oder so?
Aber warum funktioniert es dann hinterher?
Vielen Dank schon mal

Workbooks(neuName).Sheets(1).ChartObjects(1).Chart.SeriesCollection(1).Formula = Replace(Workbooks(neuName).Sheets(1).ChartObjects(1).Chart.SeriesCollection(1).Formula, "Auswertungstool DaVis.xlsm", neuName, , , vbTextCompare)

sry, das hier ist die Zeile, in der er meckert