Ich möchte gerne ein Makro zum speichern.
Dabei soll der Modus speichern unter aufgerufen werden und es soll ein speicherort vorgegeben sein. Dateiname und Dateiytp muss manuell ausgewählt werden können.
Dankeschön!
Option Explicit
Sub Speichern_In_neue_Datei()
Dim Merker As String
Application.ScreenUpdating = False
Merker = CurDir
ChDrive "C" ' Anpassen
ChDir "C:\Test" ' Anpassen
ThisWorkbook.Sheets.Copy
Application.Dialogs(xlDialogSaveAs).Show "Dateiname.csv"
ChDrive Merker
ChDir Merker
Application.ScreenUpdating = True
End Sub
Gruß
Reinhard