Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblätter als einzelne Dateien speichern

Tabellenblätter als einzelne Dateien speichern
10.07.2003 11:37:22
michael
Hallo!
Ich habe eine Mappe mit zahlreichen Blättern. Gibt es eine Möglichkeit, sämtliche Blätter automatisch als eigene Mappen abzuspeichern, damit ich mir das händische anlegen und herumkopieren sparen kann?
Vielen Dank für Tips!
mfg
Michael Kößler

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter als einzelne Dateien speichern
10.07.2003 12:08:09
sergiesam
Hi
Verwende dies:

Sub Aufteilung()
Dim sh As Worksheet, ab As Workbook, nb As Workbook
Set ab = ActiveWorkbook
For Each sh In ab.Sheets
Set nb = Workbooks.Add
sh.Copy Before:=nb.Sheets(1)
nb.SaveAs ab.Path & "\" & sh.Name
Next sh
End Sub

Gruß,
sam

AW: Tabellenblätter als einzelne Dateien speichern
10.07.2003 12:05:03
geri
Hallo Michael
als Ansatz gefunden im Forum

Sub SaveSheets()
Dim iSheet As Integer
Dim sPath As String
Application.ScreenUpdating = False
sPath = Range("B1").Value & "\"
For iSheet = Worksheets.Count - 2 To Worksheets.Count
Worksheets(iSheet).Copy
ActiveWorkbook.SaveAs sPath & ActiveSheet.Name
ActiveWorkbook.Close savechanges:=False
Next iSheet
Application.ScreenUpdating = True
MsgBox "Job erledigt"
End Sub

es speichert 3 Blätter in B1 steht PFAD
gruss geri

Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige