Methode Formula für Objekt Series fehlgeschlagen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
Bild

Betrifft: Methode Formula für Objekt Series fehlgeschlagen
von: Gerrit
Geschrieben am: 10.08.2015 16:43:42

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

    Bild

    Betrifft: AW: Methode Formula für Objekt Series fehlgeschlagen
    von: Gerrit
    Geschrieben am: 10.08.2015 16:46:31

    
    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

     Bild

    Beiträge aus den Excel-Beispielen zum Thema "Methode Formula für Objekt Series fehlgeschlagen"