alle vorhandenen Charts in neues Workbook kopieren....

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von ereza.

    alle vorhandenen Charts in neues Workbook kopieren....

    Liebes Forum!

    Ich würde gerne wissen, wie ich erstellte Charts, in ein neues Workbook übertragen kann...

    ich hab mal folgendes probiert... Code1:

    Visual Basic-Quellcode

    1. Set wb = Workbooks.Add(xlWBATWorksheet)
    3. For Each grafik In ThisWorkbook.Charts
    4. grafik.Copy After:=wb.Charts(wb.Charts.Count)
    5. Next


    Aber leider haut das nicht hin...


    Es soll eigentlich wie bei Tabellenblätter ablaufen... Code2:

    Visual Basic-Quellcode

    1. For Each ws In ThisWorkbook.Worksheets
    2. ws.Copy After:=wb.Sheets(wb.Sheets.Count)
    3. Next


    das funktioniert.... aber eben, wenn ichs mit Charts probiere geht's nicht...

    und... ich muss aber irgendwie Charts verwenden... weil, mir die Charts als "Tabellenblatt" beim vorhergehenden Code --> Code2, nicht mitkopiert werden... --> wahrscheinlich weils eben gar kein "Sheet" ist!

    Kann mir jemand sagen, wie ich das mit Charts umsetzen kann, in Code1 ??

    Vielen Dank!

    PS:
    Die Deklaration und das setzen sieht so aus:

    Visual Basic-Quellcode

    1. Dim ws As Worksheet
    2. Dim wb As Workbook
    3. Dim grafik As Chart
    6. Set wb = Workbooks.Add(xlWBATWorksheet)


    VG Tim

Facebook
Telefonspende