Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Loop - Tabellenblatt als Datei abspeichern

Loop - Tabellenblatt als Datei abspeichern
17.10.2005 15:48:03
Jörg
Hallo Forum und Excelgötter,
Ich habe eien Pivotabelle mit der Seitenfunktion nach Lieferanten unterteilt. Jetzt möchte ich die einzelnen Tabellenblätter abspeichern und zwar soll der Name des Tabellenblatts als Dateiname verwand werden. Mein Makro vergibt aber immerwieder den gleichen Namen. Kann einer helfen? Nochmal in Kurzform: Jedes Tabellenblatt soll als Datei abgespeichert werden, Dateiname soll der namer des Tabellenblattes sein.

Sub Makro_Konsi_TEST()
' Makro_Konsi Makro
' Makro am 17.10.2005 von jwojtun aufgezeichnet
Dim sfile As String
sfile = ActiveWorkbook.ActiveSheet.Name
If sfile = "" Then Exit Sub
For I = 1 To 2
ActiveSheet.Select
ActiveSheet.Move
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.SaveAs "C:\T E S T - Macro\" & sfile & "_WE_" & I, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Windows("we.xls").Activate
Next I
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Loop - Tabellenblatt als Datei abspeichern
17.10.2005 15:55:30
Herbert
Hi,
einfach
sfile = ActiveWorkbook.ActiveSheet.Name
in die schleife verlegen.
mfg Herbert
Anzeige

350 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige