kopiertes Tabellenblatt hinter aktuelles einfügen

[elamigo]

Hey,

ich hoffe wir kommen erstmal ohne Datei aus. Ist im Prinzip recht simpel, aber ich sehe wohl den Wald vor lauter Bäume nicht.
Ich habe eine Datei mit 2 Tabellenblättern. Diagramm und Tabelle1.
Aus Tabelle1 heraus erstelle ich per Makro neue Tabellenblätter mit Inhalt. Wenn ich auf einem der neuen Tabellenblätter bin möchte ich per Makro, das Diagramm HINTER das aktuelle Tabellenblatt einfügen.
Habe mal folgenden Code aus dem nichts geschrieben, aber dieser geht nicht wirklich. Gerne etwas Erklärung zu euren Codes, so lerne ich am besten.

Code:

   Diagramm.Select
   Diagramm.Copy
   Sheets.Add after:=ActiveSheet
   ActiveSheet.Paste

Es soll nicht nur der Inhalt sondern auch das Format übertragen werden.

[MisterBurns]

Manchmal reicht es auch einfach aus, mit dem Makrorekorder zu arbeiten...

Code:

Sheets("Diagramm").Copy after:=ActiveSheet
'alternativ
Sheets("Diagramm").Copy after:=Sheets("Diagramm")     'das spart die Selektiererei

Wenn du das Blatt komplett kopierst, wieso sollten die Formate nicht übertragen werden?

[elamigo]

Hey Berni,

danke dir.