Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenblatt mit Diagramm kopieren und Format

Betrifft: Tabellenblatt mit Diagramm kopieren und Format von: Cindy
Geschrieben am: 24.11.2014 09:52:43

Hallo Leute,

ich kopiere Tabellenblätter in eine neue Datei, jedoch wird das Diagramm nicht mitkopiert... Hat jemand eine Idee wie ich das einbauen kann?

Meine Zweite Frage, wie kann ich erreichen, das beim kopieren der Tabellenblätter auch die Formatierungen beibehalten werden?

Vielen Dank

CIndy

  

Betrifft: beschreibe den Kopiervorgang mal genauer. O.T von: Armin
Geschrieben am: 24.11.2014 14:16:36




  

Betrifft: AW: beschreibe den Kopiervorgang mal genauer. O.T von: Armin
Geschrieben am: 24.11.2014 14:17:36




  

Betrifft: AW: Tabellenblatt mit Diagramm kopieren und Format von: Beverly
Geschrieben am: 24.11.2014 19:53:19

Hi Cindy,

kopiere das Tabellenblatt mittels Rechtsklick auf den Tabellenreiter -> Verschieben oder Kopieren und wähle dann die Zielmappe aus - dann wird alles komplett mit Inhalten und Formatierungen kopiert.


GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Tabellenblatt mit Diagramm kopieren und Format von: Cindy
Geschrieben am: 26.11.2014 08:17:11

Hallo Beverly,
ja so soll es aussehen, jedoch hätte ich das gerne in Vba wegen einer schleife, also beim klick auf einen Button sollen drei Tabellenblätter in eine nue Datei gepackt werden und gespeichert werden. Das funktioniert, bis auf die Grafik....


LG
Cindy


  

Betrifft: AW: Tabellenblatt mit Diagramm kopieren und Format von: Beverly
Geschrieben am: 26.11.2014 08:26:58

Hi Cindy,

mit folgender Codezeile:

    Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Copy
werden die 3 Tabellenblätter in eine neue Arbeitsmappe kopiert - einschließlich der darin enthaltenen Diagramme. Weshalb bei dir die Diagramme nicht mitkopiert werden ist mir schleierhaft.


GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Tabellenblatt mit Diagramm kopieren und Format von: Cindy
Geschrieben am: 26.11.2014 08:38:59

Hallo Beverly,

bei mir sah es bis jetzt so aus:

Set aktWKB = ActiveWorkbook
    With ActiveWorkbook
    For intI = 3 To 5 'Tabellenblätter 3 bis 5
      Set fromWKS = aktWKB.Worksheets(intI) '<-- hier anpassen
      If newWKB Is Nothing Then
        Set newWKB = Workbooks.Add(xlWBATWorksheet)
      Else
        With newWKB
            .Worksheets.Add after:=.Sheets(.Sheets.Count)
        End With
      End If
      Set toWKS = newWKB.Worksheets(newWKB.Sheets.Count)
      toWKS.Name = fromWKS.Name
    
      fromWKS.UsedRange.Copy
      toWKS.Range("A1").PasteSpecial Paste:=xlPasteValues
      toWKS.Range("A1").PasteSpecial Paste:=xlPasteFormats
      

      
    Next
    End With

und das hat wohl nicht ganz so funktioniert, wie ich es haben wollte

LG Cindy


 

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt mit Diagramm kopieren und Format"