Hallo zusammen,
Hab folgenden code aus dem internet. Leider funktioniert er nicht ganz wie gewünscht. Das Makro soll alle Blätter von 5 to worksheetcount. in eine neue excel mappe abspeichern und nicht nur die eine tabelle.
Danke für die hilfe!
Sub Blätter_einzeln_speichern()
Dim i As Integer, Speichername As String
Const Pfad = "blabla"
Application.ScreenUpdating = False
Rem: Schleife um jedes Tabellenblatt anzusprechen
Rem: Schleife läuft von hinten nach vorne
For i = Worksheets.Count To 5 Step -1
Rem: Blattname in Variable "Speichername" schreiben
Speichername = ThisWorkbook.Sheets(i).Name
Rem: Das durch die Schleife agesprochene Tabellenblatt in eine neue Datei verschieben
Sheets(i).Move after
Rem: Datei mit dem verschobenen Tabellenblatt unter dem Namen, der in Variable "Speichername"
Rem: gespeichert wurde abspeichern
ActiveWorkbook.SaveAs Filename:=Pfad & "test sonntag" & ".xlsx"
Rem: Abgespeicherte Datei schließen
ActiveWindow.Close
Next
End Sub