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
Das Makro liegt jedoch in der Personal.xlsb im XLStart Ordner.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