Supportnet / Forum / Tabellenkalkulation
Per Makro Speichern unter aktuellen Datum!
Frage
Hallo,
ich bekomme jeden Tag verschiedene Dateien.
diese Dateien unterscheiden sich nur mit dem Datumszusatz!
Beispiel:
Bestand 21.08.2008.xls
Diese Datei formatiere ich mit Hilfe eines Makrobefehls!
In diesen Makrobefehl möchte ich integrieren, daß er diese auch automatisch wieder abspeichert!
Wenn ich aber den Makro schreibe, so speichert er jede Folgedatei unter dem gleichen Namen ab (Klar, weil im Makro der entsprechende Dateiname steht)!
Wie muß der Makro lauten, daß er den Dateinamen um das aktuelle Datum erweitert und speichert?
Danke fürs Feedback!
Ramirez
Antwort 1 von Saarbauer
Hallo,
wie sieht den dein Makro aus?
Benutzt du die Date-Funktion um dein Datum zu setzen oder wie
Gruß
Helmut
wie sieht den dein Makro aus?
Benutzt du die Date-Funktion um dein Datum zu setzen oder wie
Gruß
Helmut
Antwort 2 von RAMIREZ-003
Mein Makro beinhaltet bisher nur die von mir gewünschten Formatierungen, beim den Speicherteil habe ich nachdem es nicht funktioniert hat gelöscht!
So war es ursprünglich:
ChDir "Y:\BESTÄNDE"
ActiveWorkbook.SaveAs Filename:="Y:\BESTÄNDE\BestandHEUTE.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Ich bin leider nur Anwender und habe von Programmierung keine Ahnung!
Danke Tim
So war es ursprünglich:
ChDir "Y:\BESTÄNDE"
ActiveWorkbook.SaveAs Filename:="Y:\BESTÄNDE\BestandHEUTE.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Ich bin leider nur Anwender und habe von Programmierung keine Ahnung!
Danke Tim
Antwort 3 von coros
Hallo Ramirez,
der Befehl könnte z.B. folgendermaßen lauten
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
der Befehl könnte z.B. folgendermaßen lauten
ActiveWorkbook.SaveAs "Y:\BESTÄNDE\Bestand " & Format(Now, "dd.mm.yyyy") & ".xls"MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 4 von RAMIREZ-003
Vielen Dank,
ich mußte zwar noch kurz rumdoktern,
doch der Befehl hat funktioniert und
speichert jetzt meine Dateien unter dem Namen&Datum ab!
Klasse!!!
ActiveWorkbook.SaveAs "Y:\BESTÄNDE\Bestand " & Format(Now, "dd.mm.yyyy") & ".xls"
Ich habe aber noch ein weiteres Problem:
Siehe im Forum!
Vieleicht gibt es hierzu auch eine Lösung!
Danke Tim
ich mußte zwar noch kurz rumdoktern,
doch der Befehl hat funktioniert und
speichert jetzt meine Dateien unter dem Namen&Datum ab!
Klasse!!!
ActiveWorkbook.SaveAs "Y:\BESTÄNDE\Bestand " & Format(Now, "dd.mm.yyyy") & ".xls"
Ich habe aber noch ein weiteres Problem:
Siehe im Forum!
Vieleicht gibt es hierzu auch eine Lösung!
Danke Tim
Antwort 5 von Saarbauer
Hallo,
der Befehl von @ coros ist so ok, aber ich würde es etwas anders machen
ActiveWorkbook.SaveAs "Y:\BESTÄNDE\Bestand " & Format(Now, "yyyy.mm.dd") & ".xls"
hat den Vorteil das die Sortierung nach Jahre, monat unf tag erfolgt. Aus meiner Sicht sinnvoller
Gruß
Helmut
der Befehl von @ coros ist so ok, aber ich würde es etwas anders machen
ActiveWorkbook.SaveAs "Y:\BESTÄNDE\Bestand " & Format(Now, "yyyy.mm.dd") & ".xls"
hat den Vorteil das die Sortierung nach Jahre, monat unf tag erfolgt. Aus meiner Sicht sinnvoller
Gruß
Helmut