Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SaveAs mit Datum und Datei-Name

SaveAs mit Datum und Datei-Name
19.05.2016 12:45:45
Boory
Hallo Forum,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Endung vergessen
19.05.2016 13:09:33
Michael
Hi Boory,
der "Initial file Name" enthält keine Endung. Mit
savedFile = Application.GetSaveAsFilename("SN-Scans-NEU" & "_" & _
Format(Date, "DD.MM.YYYY") & ".xlsx", _
fileFilter:="Excel-Arbeitsmappe, *.xlsx")

geht's.
Schöne Grüße,
Michael

AW: Endung vergessen
19.05.2016 13:30:07
Boory
WAAAHHHHH!!!!
Oh mann!!! Danke, Michael! Manchmal sitzt man wirklich sowas von mitten im Wald und sieht die Bäume nicht mehr...
Ich habs ja gesagt - ist sicher nur 'ne Kleinigkeit... :)
Vielen Dank - Boory

gerne, danke für die Rückmeldung
19.05.2016 14:23:32
Michael
Der olle Murphy schlägt halt immer wieder zu.
Gruß,
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige