Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Methode Formula für Objekt Series fehlgeschlagen

Methode Formula für Objekt Series fehlgeschlagen
10.08.2015 16:43:42
Gerrit
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

    1
    Beitrag zum Forumthread
    Beitrag zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Methode Formula für Objekt Series fehlgeschlagen
    10.08.2015 16:46:31
    Gerrit
    
    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
    Anzeige

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige