VBA "Speichern unter" ohne Bestätigungsfenster
Giuseppe
Ich habe ein leicht abgeändertes Makro, um die aktuelle Tabelle woanders abspeichern zu können:
Sub SpeichernUnter()
Dim varRetVal As Variant, strInitFileName As String, Datname As String
Dim Pfad As String
Pfad = Sheets("Start").Range("Q25")
Datname = Sheets("Start").Range("M25") & ".xlsm"
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=Pfad & Datname, _
FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
Title:="Datei speichern unter... ")
If varRetVal = False Then Exit Sub
ActiveWorkbook.SaveAs varRetVal
End Sub
Nun erscheint am schluss jedoch ein Fenster, um die Datei entgültig zu speichern.Kann man dieses "Bestätigen" irgendwie automatisieren? (Ohne Bestätigungsfenster)
Toll währe es noch, wenn dann genau diese "kopie" dann noch aufgestartet würde...
Das Grundoriginal sollte ohne speichern beendet werden...
Bitte um Hilfestellung
Grüsse Salnet