Herbers Excel/VBA-Archiv

Tabellenblatt mit Diagramm kopieren und Format

• Tabellenblatt mit Diagramm kopieren und Format von Cindy vom 24.11.2014 09:52:43
• beschreibe den Kopiervorgang mal genauer. O.T - von Armin am 24.11.2014 14:16:36
  • AW: beschreibe den Kopiervorgang mal genauer. O.T - von Armin am 24.11.2014 14:17:36
• AW: Tabellenblatt mit Diagramm kopieren und Format - von Beverly am 24.11.2014 19:53:19
  • AW: Tabellenblatt mit Diagramm kopieren und Format - von Cindy am 26.11.2014 08:17:11
    • AW: Tabellenblatt mit Diagramm kopieren und Format - von Beverly am 26.11.2014 08:26:58
      • AW: Tabellenblatt mit Diagramm kopieren und Format - von Cindy am 26.11.2014 08:38:59

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.

---

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.

---

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"