Autospeichern in Makro einbauen

[DERGRIECHEMINE]

Hallo,

ich habe ein makro in excel mit diversen formeln gebaut. leider nimmt das anschließende speichern sehr viel zeit in anspruch.

ich würde gern am ende vom makro einbauen, dass die Datei mit folgendem namen "Auswertung Dateiname.xls" in einem festgelgten ordner speichern. gibt es da einen quellcode (maske).

beim manuellen speichern kommt immer die frage der konvertibilität oder so, wo man nochmal auf weiter klicken muss. kann man das ebentfalls ins makro einbauen.

würde mich über hilfe freuen!

besten dank im vorraus

robert

[BoskoBiati]

Hallo,

Tante Google liefert Dir mit Sicherheit zig Ergebnisse. Ansonsten hätte ich z.B. sowas:

Code:

Application.DisplayAlerts = False
Application.ScreenUpdating = False
On Error GoTo Fehler
ThisWorkbook.Save

               FehlerString = "xxx.xlsx"
ThisWorkbook.SaveAs Filename:="xxx.xlsx", FileFormat:=xlOpenXMLWorkbook

Application.ScreenUpdating = True
Application.DisplayAlerts = True
Exit Sub
Fehler:
MsgBox FehlerString, , "Speichern nicht möglich"
Resume Next

Speichert beim Schließen eine .xlsm und anschließend eine Kopie als .xlsx

Code:

StrDatei = ThisWorkbook.Path & "xxxx.xlsm"
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ThisWorkbook.Save
ThisWorkbook.SaveAs Filename:="xxxx.xlsx", FileFormat:=xlOpenXMLWorkbook
ThisWorkbook.SaveAs Filename:="yyyy.xlsx", FileFormat:=xlOpenXMLWorkbook, ConflictResolution:=xlLocalSessionChanges
Workbooks.Open StrDatei
ThisWorkbook.Close savechanges = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True

Speichert eine Datei mit Commandbutton als xlsm, anschließende eine Kopie als .xlsx und öffnet die Originaldatei wieder.