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"