Microsoft Excel

Herbers Excel/VBA-Archiv

Blatt kopieren

Betrifft: Blatt kopieren von: Klaus
Geschrieben am: 06.10.2007 15:03:02

Hallo zusammen

Ich mochte ein Excel-Blatt in eine neue Excel-Tabelle kopieren und einfügen. Dabei sollen bestehende Formate (Spaltenbreite, Seitenränder, Kopf und Fusszeile usw.) übernommen werden. Ferner ist in dem Orginal-Blatt auch noch ein Bild, welches auch übernommen werden soll.
Mit "Verschieben/Kopieren in neue Mappe" funktioniert es nicht, da der Makro-Rekorder das nicht frisst.
Kann jemand helfen?

Gruss Klaus

  

Betrifft: AW: Blatt kopieren von: Nepumuk
Geschrieben am: 06.10.2007 15:07:30

Hallo Klaus,

da der Makro-Rekorder das nicht frisst



Ich bin froh, dass sich der Appetit meines Makrorekorders in Grenzen hält. :-)

Versuch es einfach mal mit:

Worksheets("Tabelle1").Copy

Gruß
Nepumuk


  

Betrifft: AW: Blatt kopieren von: Chaos
Geschrieben am: 06.10.2007 15:11:28

Servus,

z.B.so:

Sub kop()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\Dokumente und Einstellungen\Christian\Desktop\Kop.xls" '  _
Hier dein Pfad und Dateiname oder aber weglassen und so speichern
End Sub



Gruß

Chaos


  

Betrifft: Sheets("Bild").Copy Workbooks("Mappe2").Sheets(1) von: NoNet
Geschrieben am: 06.10.2007 15:11:15

Hallo Klaus,

nehmenwir an, Du möchtest das Blatt "Bild" aus der Mappe "Original.xls" an die erste Stelle der (bereits geöffneten) Mappe "Kopie.xls" kopieren, dann funktioniert das mit dieser VBA-Anweisung :

Workbooks("Original.xls").Sheets("Bild").Copy Workbooks("Kopie.xls").Sheets(1)

Gruß, NoNet


  

Betrifft: AW: Blatt kopieren von: Klaus
Geschrieben am: 06.10.2007 15:27:56

Danke für Eure Hilfe ich habe jetzt

Worksheets("Angebotsvorlage").Copy
Workbooks.Add
ActiveSheet.Paste

eingegeben. Nun macht Excel 2 neue Arbeitsblätter auf, in den einen Blatt ist die Kopie und in dem anderen steht in A1-A3
Worksheets("Angebotsvorlage").Copy
Workbooks.Add
ActiveSheet.Paste

wie kommt den sowas????

Gruss Klaus


  

Betrifft: AW: Blatt kopieren von: Nepumuk
Geschrieben am: 06.10.2007 15:31:03

Hallo Klaus,

naja, erst erstellst du eine Kopie der Tabelle in einer neuen Mappe und anschließend erstellst du noch eine neue Mappe. Einfach nur:

Worksheets("Angebotsvorlage").Copy

Gruß
Nepumuk


  

Betrifft: AW: Blatt kopieren von: Klaus
Geschrieben am: 06.10.2007 15:33:13

Danke, habe nicht gewusst, das gleich eine neue Kopie erstellt wird

Gruss klaus


  

Betrifft: Wie kommst Du auf die Idee mit "PASTE" ? von: NoNet
Geschrieben am: 06.10.2007 15:40:28

Hallo Klaus,

da hast Du etwas misverstanden und zu weit gedacht :

Durch die Anweisung Worksheets("Angebotsvorlage").Copy wird dieses Blatt bereits in eine neue Mappe kopiert. Durch Workbooks.Add erstellst Du noch eine weitere neue Mappe und durch Activesheet.Paste fügst Du den Inhalt aus der Zwischenablage (Dein zuvorkopierter VBA-Code ;-) in das Blatt ein ! - Soweit zur Erklärung Deines IST-Zustandes !

Der Fehler liegt an den letzten beiden Codezeilen : Niemand hat Dir geraten, eine neue Mappe zu erzeugen und/oder Paste zu verwenden, das war ganz alleine DEINE Idee ;-).
Dein Denkfehler : Worksheets("Angebotsvorlage").Copy verwendet NICHT die Zwischenablage (Deshalb ist PASTE hier nicht angebracht !), sondern kopiert dieses Blatt direkt in eine neue (leere) Mappe.
Nepumuk hat daherauch nur diese einzelne Codezeile vorgeschlagen ! In meinem Vorschlag siehst Du, wie Du das Blatt in eine bestehende Mappe kopieren kannst und im Vorschlag von "Chaos", wie Du die neue Mappe sofort unter einem neuen Namen speichern kannst. Suche Dir also die passendste Lösung aus.

Gruß, NoNet


 

Beiträge aus den Excel-Beispielen zum Thema "Blatt kopieren"