Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

alle Blätter einzeln speichern

alle Blätter einzeln speichern
05.06.2005 15:32:20
Gerhard
Hallo,
ich möchte eine bestehend Excel-Datei mit ca. 45 Blättern auflösen und jedes einzelne Blatt getrennt als neue Datei (im gleichen Pfad/Ordner) abspeichern. Jeder vorhandene Blattname soll zum jeweils neuen Dateinamen werden. Die neu entstehende Datei soll nur dieses eine Blatt enthalten.
z. B. die Datei C:\Kunden.xls mit den Blättern Kunde1, Kunde2, .....Kunde48
soll 48 neue Dateien ergeben. C:\Kunde1.xls -Blatt Kunde1, C:\Kunde2.xls -Blatt Kunde2 ... C:\Kunde48 -Blatt Kunde48.
Wenn mir jemand als "Sonntagsarbeit" diese Makro erstellt wäre mir sehr viel geholfen.
Mit Gruß
Gerhard E.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle Blätter einzeln speichern
05.06.2005 15:54:20
Hajo_Zi
Hallo Gerhard,
ich gehe mal davon aus das keine Diagramme vorhanden sind.
Option Explicit

Private Sub Aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close True
Next WsTabelle
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
AW: alle Blätter einzeln speichern
05.06.2005 16:12:28
Gerhard
Danke Hajo,
damit hast du mir sehr gut geholfen und viel Arbeit mit Kopieren und Löschen erspart.
Gruß
Gerhard E.

234 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige