Ich möchte gern das Tabellenblatt "Tabelle2" extra unter einem bestimmten Dateinamen speichern. Es soll aber nicht sichtbar sein bzw. das neue Fenster sofort geschlossen werden. Weiß jemand wie das geht?
Vielen Dank
Michael
Sub Test()
Application.ScreenUpdating = False
Sheets("Tabelle2").Copy
With ActiveWorkbook
.SaveAs Filename:="C:\DeinPfad\DeinDateiname.xls"
.Close
End With
Application.ScreenUpdating = True
End Sub
Sub Kopie()
Tabelle2.Copy
ActiveWorkbook.SaveAs "C:\Test.xls"
ActiveWorkbook.Close
End Sub
Sub Blatt_Zwischenspeichern()
Dim Neu$, Alt$
Alt = ActiveWorkbook.Name
Workbooks.Add
Neu = ActiveWorkbook.Name
ActiveWindow.WindowState = xlMinimized
Windows(Alt).Activate
ActiveWindow.WindowState = xlNormal
Sheets("Tabelle2").Copy Before:=Workbooks(Neu).Sheets(1)
ActiveWorkbook.SaveAs Filename:="F:\Zielpfadangabe\Dateiname.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
End Sub