Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheet kopieren

Forumthread: Sheet kopieren

Sheet kopieren
13.03.2007 18:11:03
Michael
Hallo Zusammen,
ich erstelle in einem Excel-Workbook ein Sheet mit unterschiedlichen Informationen. Nach der Erstellung möchte ich ein neues Workbook erstellen (Workbooks.Add) und dann das bereits erstellte Sheet "Ausgabe_Bestellung_Stueckliste" in das neue Workbook kopieren.
Wie kann ich dies machen? Kann ich dem neuen Workbook auch einen Namen geben?
Gruß, Michael
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheet kopieren
13.03.2007 18:22:47
IngGi
Hallo Michael,
so?
Workbooks("DeineArbeitsmappe.xls").Sheets("Ausgabe_Bestellung_Stueckliste").Copy
ActiveWorkbook.SaveAs("C:\NeuerName.xls")
Gruß Ingolf
AW: Sheet kopieren
14.03.2007 00:13:00
Matthias
Hallo Michael
so geht's ...
Kopiere diesen Code in ein Modul Deiner Quelltabelle
Option Explicit
Sub NeuesWBook()
Application.ScreenUpdating = False
Workbooks.Add
ActiveWorkbook.SaveAs ("C:\TestCopy.xls")
Workbooks("DeineArbeitsmappe.xls").Sheets _
("Ausgabe_Bestellung_Stueckliste").Copy Before:=Workbooks("TestCopy.xls").Sheets(1)
Application.ScreenUpdating = True
End Sub

Gruß Matthias
Anzeige
noch etwas kompfortabler :-)
14.03.2007 00:38:00
Matthias
Option Explicit
Sub NeuesWBook()
Dim xlsName As String, Freigabe As Byte
nochmal:
xlsName = InputBox("Bitte Dateinamen vergeben", , , vbOKOnly)
If xlsName = "" Then End
Freigabe = MsgBox("Dateiname = C:\" & xlsName & ".xls", vbYesNo)
If Freigabe  6 Then GoTo nochmal
Application.ScreenUpdating = False
Workbooks.Add
ActiveWorkbook.SaveAs ("C:\" & xlsName & ".xls")
Workbooks("DeineArbeitsmappe.xls").Sheets _
("Ausgabe_Bestellung_Stueckliste").Copy Before:=Workbooks(xlsName & ".xls").Sheets(1)
Application.ScreenUpdating = True
End Sub

Gruß Matthias
Anzeige
AW: noch etwas kompfortabler :-)
14.03.2007 10:16:00
Michael
Hallo Matthias,
funktioniert bestens.
Danke, Michael
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige