Tabellenblätter einzeln abspeichern
13.11.2019 10:56:21
Sebastian
ich würde gerne in einer Datei die ganzen Tabellenblätter in jeweils separate Dateien abspeichern.
Das habe ich soweit auch hinbekommen:
Sub Aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close True
Next WsTabelle
End Sub
Somit werden die neuen Dateien natürlich auch im XLStart Ordner abgespeichert.
Wie bekomme ich es hin, dass die neuen Dateien im Ordner/Pfad der Exceltabelle gespeichert werden und nicht der des Makros?
Vielen Dank und Grüße
Sebastian