Hallo zusammen,
ich möchte ein gerade aktives Sheet aus einem bereits bestehnden Workbook in ein neu zu erstellendes Workbook verschieben.
Das aktive Workbook ist "Factsheet Traube.xlms" und soll in ein neues Workbook mit dem Namen "Factsheet Traube" verschoben werden. Bekomme in der Zeile mit dem Move-Befehl eine Fehlermeldung. Erkenne meinen Fehler aber nicht. Jemand eine Idee?
Set Blatt = ActiveSheet
Application.SheetsInNewWorkbook = 1
Set Mappe = Workbooks.Add
Workbooks("Factsheet Traube.xlsm").Worksheets(Blatt).Move Before:=Workbooks(Mappe).Sheets(1)
Mappe.SaveAs Filename:="C:\Factsheets\" & Name
Mappe.Close
Vielen Dank vorab.