Sheets in neue Datei übertragen

Bild

Betrifft: Sheets in neue Datei übertragen von: Domi
Geschrieben am: 07.02.2005 20:40:33

Guten Abend miteinander,

Folgendes:
- Ich möchte mit VBA eine neue Datei öffnen.
- Danach das Sheet "Namen" in diese Neue Datei Kopieren.
- Die neue Datei im gleichen Pfad unter den Namen "Versand.xls" abspeichern.

(ich habe mal ein ähnliches Posting gelesen, aber in der Recherche leider nicht gefunden)

Mein kläglicher Anfang:


Sub Versand()
Workbooks.Add
Windows("Daten.xls").Activate
                'hier speichern unter "Versand.xls"
Sheets("Namen").Move Before:=Workbooks("Versand").Sheets1
End Sub


kann mir bitte Jemand weiterhelfen?

mit freundlichen Grüssen und besten Dank

Domi
Bild


Betrifft: AW: Sheets in neue Datei übertragen von: Ulf
Geschrieben am: 07.02.2005 21:07:33

Einfach das Blatt "Namen" kopieren und das aktive Workbook speichern unter Versand.xls

Ulf


Bild


Betrifft: AW: Sheets in neue Datei übertragen von: Domi
Geschrieben am: 07.02.2005 21:12:55

Sali Ulf,

Ja das ist natürlich die Handmade Lösung.

Ich möchte aber das Ganze mit VBA erledigen!

Danke und freundliche Grüsse

Domi


Bild


Betrifft: AW: Sheets in neue Datei übertragen von: Ulf
Geschrieben am: 07.02.2005 21:13:33

Siehe andere Antwort.

Ulf


Bild


Betrifft: AW: Sheets in neue Datei übertragen von: Matthias G
Geschrieben am: 07.02.2005 21:11:39

Hallo Domi,

Sub KopiereBlatt()
ThisWorkbook.Sheets("Namen").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Versand.xls"
ActiveWorkbook.Close 'falls gewünscht
End Sub
Gruß Matthias


Bild


Betrifft: Danke! von: Domi
Geschrieben am: 07.02.2005 21:16:33

Hallo Matthias,

herzlichen Dank für deinen Beitrag!
Dies ist das fehlende Puzzleteil.

Ich denke mal, jetzt kann ich mein Projekt fertigbasteln!

mit freundlichen Grüssen

Domi


Bild


Betrifft: Ich bin zu langsam! oT :) von: Domi
Geschrieben am: 07.02.2005 21:18:20

--


 Bild

Beiträge aus den Excel-Beispielen zum Thema "14 Bedingungen abfragen"