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ßDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen