Tabellenblätter einzeln sichern
chris58
Ich habe diesen Code von Rudi Maintaire hier gesehen. Läuft einfach Spitze. Es werden die einzelen Tabellenblätter in den ordner gesichert. Nur es kommt dann am Ende ein Fehler und zwar in der Zeile
Sheets(i).Copy
Kann mir wer sagen, wie ich das wegbekomme ?
Danke
chris
Private Sub CommandButton2_Click()
Dim i As Integer
Application.ScreenUpdating = False
For i = 2 To Worksheets.Count
Sheets(i).Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Parent.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\ch\Desktop\Vorlagen\Monatslisten\" _
& "_" & Range("A4").Value _
& "_" & ActiveSheet.Name & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
.Parent.Close
End With
Next i
Sheets(1).Select
MsgBox "BU Files have been saved in C:\Dokumente und Einstellungen\ch\Desktop\Vorlagen\ _
Monatslisten\"
End Sub