Supportnet / Forum / Tabellenkalkulation

Hallo zusammen, habe auf meiner Such zu diesem Problem schon ein tolles VB-Scrip gefunden. Leider werden hier beim speichen nicht die Seiteneinstellungen( z.B. Querformat, Gitternetzlinien, Rahmen etc.) nicht im neuen Dokument gespeichert. Wie kann ich das Script ergänzen? Gruß Stefan [b]Script ist von piano[/b] [i]Sub TabellenblattSpeichern() Dim WNeueDatei As String, Pfad As String, WName1 As String, Wname2 As String Pfad = "C:\Dokumente und Einstellungen\User\Eigene Dateien\" WNeueDatei = Range("A1") WName1 = ActiveWorkbook.Name Workbooks.Add Wname2 = ActiveWorkbook.Name Windows(WName1).Activate Cells.Select Selection.Copy Windows(Wname2).Activate Cells.Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:= _ "C:\Dokumente und Einstellungen\Gunther\Eigene Dateien\" & WNeueDatei & ".xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False ActiveWorkbook.Close End Sub Unter Pfad mußt du den Pfad zur Speicherung angeben. mit Range("A1") wird die Zelle "A1" mit dem Dateinamen angenommen (ev. ändern!). [/i]

Hallo stippes,

versuch es mal hiermit:

Option Explicit

Sub Speichern()
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\user\Desktop\" & Range("A1") & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub


Gruß

JöKe

Hallo JöKe,

vielen lieben Dank das funzt super gut!!!!!!

Gruß Stefan

• VBA Command Button auf anderes Tabellenblatt verschieben
• Excel VBA: Berechnung ausschalten?
• Excel Symbolleiste erweitern
• Excel Makro bestimmte Tabelle aufrufen
• Auto speichern einer Excel Datei