habe eine Datei mit Makros, aus der ich gerne ein Tabellenblatt ("import") in eine neue Arbeitsmappe kopiert haben möchte und diese soll dann import_waesche.xls heissen
könnt ihr mir dabei bitte helfen
Option Explicit
Public Sub Test()
Call Worksheets("import").Copy
Call ActiveWorkbook.SaveAs(Filename:=ThisWorkbook.Path & "\import_waesche.xls", FileFormat:=xlExcel8)
Call ActiveWorkbook.Close
End Sub
Gruß
Public Sub Test()
Application.DisplayAlerts = False 'Fehlermeldungen aus
Call Worksheets("importdatei_vorlage").Copy
Call ActiveWorkbook.SaveAs(Filename:=ThisWorkbook.Path & "\import_waesche.xlsx", FileFormat:=xlOpenXMLWorkbook)
Call ActiveWorkbook.Close
Application.DisplayAlerts = True 'Fehlermeldungen an
End Sub
Call ActiveWorkbook.SaveAs(Filename:=ThisWorkbook.Path & "\import_waesche", FileFormat:=xlOpenXMLWorkbook)
Gruß