Arbeitsblätter speichern

Forumthread: Arbeitsblätter speichern
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Arbeitsblätter speichern

20.02.2006 11:57:58

Heike

Hi,
vielleicht kann mir jemand bei folgender Fragestellung helfen.
Ich habe eine Datei mit mehreren Arbeitsblättern. Diese haben eine eindeutige Bezeichnung. Nun sollen diese Arbeitsblätter einzeln unter der Arbeitsblattbezeichnung gespeichert werden. Ist so etwas möglich? Ich habe nämlich beim Speichern nicht die Funktion gefunden - nur Arbeitsblatt speichern -
MfG
Heike

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Arbeitsblätter speichern

20.02.2006 12:24:00

Werner
AW: Arbeitsblätter speichern

20.02.2006 12:26:43

Worti
AW: Arbeitsblätter speichern

20.02.2006 12:50:36

Heike
Danke für die Rückmeldung OT:-)

20.02.2006 14:04:36

Werner

AW: Arbeitsblätter speichern

20.02.2006 12:24:00

Werner

Hallo Heike
Dieses Makro in ein Modul einfügen.


Sub EINZELBLATT_SPEICHERN()
PFD = Path
x = ActiveSheet.Name
Sheets(x).Copy
ActiveSheet.SaveAs PFD & x
End Sub

Das ausgewählte Blatt wird kopiert und im gleichen Verzeichnis mit dem Tabellennamen gespeichert.
Gruss Werner

AW: Arbeitsblätter speichern

20.02.2006 12:26:43

Worti

Hallo Heike,
der folgende Code speichert dir jedes Blatt als Datei mit dem Namen des Blattes im Verzeichnis D:\TEMP\ ab:

Sub BlattalsDateiSpeichern()

    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets

        ws.Copy
        ActiveWorkbook.SaveAs FileName:="D:\TEMP\" & ActiveSheet.Name & ".xls"
        ActiveWorkbook.Close
    Next ws
End Sub