File unter heutigem Datum abspeichern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: File unter heutigem Datum abspeichern
von: Claude Wälchli
Geschrieben am: 17.03.2005 16:18:55
Hallo miteinander!
Ich habe versucht ein File unter dem Namen Output inkl. aktuelles Datum abzuspeichern. Hat leider nicht funktioniert. Untenstehend mein Code:
Jahr = DatePart("yyyy", Date)
Monat = DatePart("m", Date)
Tag = DatePart("d", Date)
strDatum = "Output" & Jahr & Monat & Tag
ActiveWorkbook.SaveAs Filename:="Z:\jaive\Modell\Timer\strDatum.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Das File wird immer unter dem Namen "strDatum" anstatt "Output2005317" gespeichert. Mit MsgBox(strDatum) wird aber Output2005317 ausgegeben.
Vielen herzlichen Dank für Eure Hilfe!
Gruss, Claude

Bild

Betrifft: AW: File unter heutigem Datum abspeichern
von: SilverDragon
Geschrieben am: 17.03.2005 16:22:19
Hallo!
So muss das aussehen:
ActiveWorkbook.SaveAs Filename:="Z:\jaive\Modell\Timer\" & strDatum & ".xls", _
...
Gruss
Thomas
Bild

Betrifft: AW: File unter heutigem Datum abspeichern
von: SilverDragon
Geschrieben am: 17.03.2005 16:25:36
btw
Das Datum bekommst Du auch eleganter hin mit:
strDatum = Format(Date,"yyyymd")
Nochmal Gruß ;-)
Thomas
 Bild

Beiträge aus den Excel-Beispielen zum Thema "UDF Verweis checken"