Tabs speichern Schleife (Speicherzielabfrage)
24.03.2017 13:20:36
Jupp
kann man den folgenden Code so umschreiben, dass sich eine Abfrage öffnet, die nach dem Zielordner fragt, also wo die Dateien gespeichert werden sollen?
_____________________________________________________________________________
Option Explicit
Const Pfad = "Pfad"
_____________________________________________________________________________
Sub Blätter_einzeln_speichern()
Dim i As Integer, Speichername As String
Application.ScreenUpdating = False
Rem: Schleife um jedes Tabellenblatt anzusprechen
Rem: Schleife läuft von hinten nach vorne
For i = Worksheets.Count To 2 Step -1
Rem: Blattname in Variable "Speichername" schreiben
Speichername = ThisWorkbook.Sheets(i).Name
Rem: Das durch die Schleife angesprochene Tabellenblatt in eine neue Datei verschieben
Sheets(i).Move
Rem: Datei mit dem verschobenen Tabellenblatt unter dem Namen, der in Variable "Speichername"
Rem: gespeichert wurde abspeichern
ActiveWorkbook.SaveAs Filename:=Pfad & Speichername & ".xls"
Rem: Abgespeicherte Datei schließen
ActiveWindow.Close
Next
End Sub
Anzeige