Ich speichere mehrmals täglich eine Datei. Ich mache es mit Makro, vergebe immer den gleichen Namen. Wie kann ich die Datei Speichern mit Namen von der Funktion Jetzt(). Z.B 11.03.2009_10:37.xls.
Danke für Hilfe.
Thisworkbook.SaveAs Pfad & Format(Now,"yyyymmdd") & ".xls"
Sub test()
Dim NName$, Ext$
NName = Format(Now, "DD.MM.YYYY_HH:MM")
Ext = ".xls" 'oder ab 2007 xlsx
ActiveWorkbook.SaveAs Filename:=NName & ".xls"
'besser rückwärts, dann sind die Dateien im Explorer chronologisch untereinander
'NName = Format(Now, "YYYY.MM.DD_HH:MM")
End Sub
Ext = ".xls" 'oder ab 2007 xlsx
da rein gesetzt, wenn die nicht verwendet wird? ;o)
Gruß aus dem Sauerland
Jens
Ext = ".xls" 'oder ab 2007 xlsx oder xlsm oder xlsb
ActiveWorkbook.SaveAs Filename:=NName & Ext