Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
672to676
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einzelne Worksheets abspeichern

Einzelne Worksheets abspeichern
30.09.2005 15:37:03
Christoph
Hallo Forum,
ich habe eine Excel Datei, welche eine unbestimmte Anzahl an Worksheets beinhaltet. Diese Worksheets sind mit Namen versehen.
Nun möchte, daß jedes Worksheet als eine eigene Excel Datei abgespeichert wird.
Kann mir jemand ein Skript liefern welches jedes einzelne Sheet anspricht und dieses als "Sheetname.xls" abspeichert und danach zum nächsten wandert bis zum letzten Sheet.
Es würde mir sehr viel Zeit ersparen ewig viele Kopien zu machen.
Tausend Dank im Voraus.
Gruß
Christoph

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einzelne Worksheets abspeichern
30.09.2005 15:44:37
René 

Sub saveassheetname ()
for i = 1 to thisworkbook.sheets.count
Sheets(i).Select
Sheets(i).Copy
strSheetName = "C:\Test\" & activesheet.name & ".xls"
ActiveWorkbook.SaveAs Filename:=strSheetName, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
next
End Sub

lg René
AW: Einzelne Worksheets abspeichern
30.09.2005 16:02:20
Christoph
Hallo Rene,
vielen Dank für die schnelle Antwort.
Habe jetzt nur noch das Problem, dass er in den Debugger Modus springt, da das Sheet welches gespeichert wurde aktiviert ist.
Wie kann ich es erreichen dass er dieses Workbook schließt und wieder in das alte zurück springt und mit dem nächsten i weiter macht.
Danke
Christoph
Anzeige
AW: Einzelne Worksheets abspeichern
30.09.2005 16:04:31
René
re,
for i = 1 to thisworkbook.sheets.count
Sheets(i).Select
Sheets(i).Copy
strSheetName = "C:\Test\" & activesheet.name & ".xls"
ActiveWorkbook.SaveAs Filename:=strSheetName, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
activeworkbook.close
thisworkbook.activate
next
End Sub
AW: Einzelne Worksheets abspeichern
30.09.2005 16:17:48
Christoph
Hi Rene,
wunderbar, vielen vielen Dank!
Gruß
Christoph

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige