Gruppe
Datei
Problem
Die drei letzten Blätter der Arbeitsmappe sollen im Verzeichnis der Arbeitsmappe unter ihrem Blattnamen gespeichert werden.
StandardModule: Modul1
Sub SaveSheets()
Dim iSheet As Integer
Dim sPath As String
Application.ScreenUpdating = False
sPath = Range("B1").Value & "\"
For iSheet = Worksheets.Count - 2 To Worksheets.Count
Worksheets(iSheet).Copy
ActiveWorkbook.SaveAs sPath & ActiveSheet.Name
ActiveWorkbook.Close savechanges:=False
Next iSheet
Application.ScreenUpdating = True
MsgBox "Job erledigt"
End Sub