ich erzeuge mit einem Makro ein neues Blatt (als Kopie einer Vorlage) und möchte dieses dann in einer neuen Datei mit einem wählbaren Namen speichern.
Dieser Code zum speichern funktioniert soweit:
Sub save_as()
Dim name As String
name = ActiveSheet.name
fName = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Filename:=fName
Sheets("Vorlage").Delete
ActiveWorkbook.Save
End Sub
Allerdings möchte ich die Excel-Abfrage unterdrücken ob das Blatt "Vorlage" gelöscht werden soll.
Außerdem wird (nachdem das neue Blatt in die neue Datei gespeichert wurde) die Ursprungsdatei ohne gespeichert zu werden geschlossen.
Und wie kann ich einen anderen als den Namen der Vorlagedatei im Fenster "speichern unter" vorgeben? Sobald ich statt
ActiveWorkbook.SaveAs Filename:=fName
z.B.
ActiveWorkbook.SaveAs Filename:="Test " & name
schreibe, wird das Windows-Fenster "speichern unter" nicht angezeigt, sondern die Datei sofort unter diesem Namen gespeichert.
Ich hoffe das waren nicht zuviele Fragen auf einmal.
Vielen Dank schonmal
Matthias