Save as ...
15.05.2013 09:17:29
Daniel
1. das aktuelle datum ermittelt
2. eine dialogbox anzeigt wird, in welchem eine neuer filenamen eintragen
werden kann
3. den save as dialog mit *datum_filenamen anzeigt
problem: es wir nichts gespeichert, wenn ich beim save as dialog speichern drücke
Was mache ich falsch?
---- mein script -----
Sub Auto_Open()
Dim strEingabeDialog As String
Dim strFileNme As String
Dim strTagesDatum As Date
Dim strNewFileName As String
'Datum ermitteln
strTagesDatum = Date
'Eingabe von Filename
strEingabeDialog = InputBox("Bitte geben Sie ein neuen Filenamen ein")
'Zusammenfügen von Datum und Filenamen
strNewFileName = strTagesDatum & "_" & strEingabeDialog & ".xlsm"
'Save File as
strNewFileName = Application.GetSaveAsFilename(strNewFileName,
fileFilter:="Excel Files (*.xlsm), *.xlsm")
End Sub