Loop - Tabellenblatt als Datei abspeichern
17.10.2005 15:48:03
Jörg
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