Sicherung auch aktives Sheet
chris58
Ich hätte noch eine Frage. Ich habe 8 Tabellenblätter in meinem Sheet. Dieser code speichert 7 Sheets. Nur die Seite aus dem ich den Code ausführe, diese speichert er mir nicht. Wenn ich statt For i = 2 .... eingebe, dann kommt ein Fehler. Wie kann ich es machen, das auch die erste Seite gespeichert wird ?
Danke
Sub Sichern()
Dim i As Integer
Application.ScreenUpdating = False
With ThisWorkbook
For i = 2 To .Worksheets.Count
If .Sheets(i).Visible Then
.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\Eigene\Desktop\Summe\Monatslisten\" _
& " Monatsliste_" & Date & "_" & .Name & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
.Parent.Close
End With
End If
Next i
.Sheets(1).Select
End With
MsgBox "Dateien wurden gespeichert"
End
Sub
Anzeige