Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Einzel-Arbeitsblätter einer Arbeitsmappe speichern.

Gruppe

Speichern

Problem

Die drei letzten Blätter der Arbeitsmappe sollen im Verzeichnis der Arbeitsmappe unter ihrem Blattnamen gespeichert werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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