SaveAs mit Datum und Datei-Name
19.05.2016 12:45:45
Boory
folgender Code bringt mir beim Öffnen des "Speichern Unter"-Fensters leider nur ein leeres Dateinamen-Feld. Ich probiere jetzt schon eine Ewigkeit rum und finde den Fehler nicht... :(
Sub saveAs()
ChDrive "C"
ChDir ("C:\Test\SN-Scan-Archiv")
savedFile = Application.GetSaveAsFilename("SN-Scans-NEU" & "_" & Format(Date, "DD.MM.YYYY"), _
fileFilter:="Excel-Arbeitsmappe, *.xlsx")
If savedFile "Falsch" Then ActiveWorkbook.saveAs savedFile
End Sub
Wahrscheinlich ist es nur eine Kleinigkeit, die ich übersehe.
Kann jemand helfen?
Vielen Dank im Voraus - Boory
Anzeige