Alle offenen Arbeitsmappen auf einmal speichern (VBA)

Mit dem folgenden Makro können Sie alle offenen Arbeitsmappen auf einmal speichern:

Sub Alle_offenen_Arbeitsmappen_speichern()

Dim wbk As Workbook

   For Each wbk In Application.Workbooks

    If wbk.Path <> „“ Then

      wbk.Save

    Else

      wbk.Activate

      Application.Dialogs(xlDialogSaveAs).Show _

      (wbk.Name)

    End If

  Next wbk

  MsgBox „Speichervorgang beendet!“

End Sub

Weiterführende Links:

• Alle Dokumente auf einmal speichern

 

 

 

MerkenMerken