Discussion:
VBA-Nur bestimmte Blaetter speichern
(zu alt für eine Antwort)
Thorsten Toedter
2004-06-04 08:05:21 UTC
Permalink
Moin,

wie kann ich aus einer Datei mit sehr vielen Blaettern nur einige
wenige (benannte) in eine neue Datei speichern?

Muss ich tatsaechlich eine neue Datei erstellen und dann die Blaetter
dort hineinkopieren? Das muss doch einfacher gehen...

cya
Thorsten
Markus Lechthaler
2004-06-04 11:10:13 UTC
Permalink
Post by Thorsten Toedter
Moin,
wie kann ich aus einer Datei mit sehr vielen Blaettern nur einige
wenige (benannte) in eine neue Datei speichern?
Muss ich tatsaechlich eine neue Datei erstellen und dann die Blaetter
dort hineinkopieren? Das muss doch einfacher gehen...
Vorschlag:
1) neue Datei ersellen
2) in die Quelldatei wechseln und die Blätter markieren (STRG-Taste beim
Markieren gedrückt halten!!!)
3) jetzt mit rechten Maustaste ein markiertes Blatt anklicken und
Kopieren/verschieben nach wählen
4) im Roll-Up die neue Datei wählen und das Kopieren anhaken

Fertig

Sonst ginge das nur mit einem Makro und da musst die Blätte auch irgendwie
auswählen oder angeben.

Einfacher geht das wohl nicht mehr....

Grüße
Thorsten Toedter
2004-06-04 13:16:17 UTC
Permalink
On Fri, 4 Jun 2004 13:10:13 +0200, "Markus Lechthaler"
Post by Markus Lechthaler
Post by Thorsten Toedter
Moin,
wie kann ich aus einer Datei mit sehr vielen Blaettern nur einige
wenige (benannte) in eine neue Datei speichern?
Muss ich tatsaechlich eine neue Datei erstellen und dann die Blaetter
dort hineinkopieren? Das muss doch einfacher gehen...
1) neue Datei ersellen
2) in die Quelldatei wechseln und die Blätter markieren (STRG-Taste beim
Markieren gedrückt halten!!!)
3) jetzt mit rechten Maustaste ein markiertes Blatt anklicken und
Kopieren/verschieben nach wählen
4) im Roll-Up die neue Datei wählen und das Kopieren anhaken
Fertig
Sonst ginge das nur mit einem Makro und da musst die Blätte auch irgendwie
auswählen oder angeben.
Ich möchte das ja gerade per VBA machen, nur eben wie?

cya
Thorsten
Herbert Taferner
2004-06-04 16:12:42 UTC
Permalink
Hallo Thorsten,

vielleicht so,
'------------------------
Sub Blattspeichern()
Dim Pfad As String
Dim Namen As String

Pfad = "C:\Privat\"
Namen = "Sicherung"

Sheets(Array(1, 2, 3, 5, 9, 11)).Copy

ActiveWorkbook.SaveAs _
Filename:=Pfad & Namen & ".xls"

End Sub
'-----------------------------

mfg Herbert
Thorsten Toedter
2004-06-07 15:29:13 UTC
Permalink
Moin,

On Fri, 4 Jun 2004 18:12:42 +0200, "Herbert Taferner"
Post by Herbert Taferner
Hallo Thorsten,
vielleicht so,
'------------------------
Sub Blattspeichern()
Dim Pfad As String
Dim Namen As String
Pfad = "C:\Privat\"
Namen = "Sicherung"
Sheets(Array(1, 2, 3, 5, 9, 11)).Copy
ActiveWorkbook.SaveAs _
Filename:=Pfad & Namen & ".xls"
End Sub
'-----------------------------
Geht das auch benannt?

Ist das Sheets(Array("Blatt1","Blatt2")

cya
Thorsten
Herbert Taferner
2004-06-07 15:52:51 UTC
Permalink
Hallo Thorsten,
Post by Thorsten Toedter
Geht das auch benannt?
Ist das Sheets(Array("Blatt1","Blatt2")
probiers einfach,

bei mir geht's

mfg Herbert

Loading...