Per Makro Speichern unter aktuellen Datum!
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 schreiben
Antwort 1 von Saarbauer vom 21.08.2020, 16:54 Options
Hallo,
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 vom 21.08.2020, 17:01 Options
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
Antwort 3 von coros vom 21.08.2020, 17:21 OptionsLösung
Hallo Ramirez,
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 vom 21.08.2020, 17:47 Options
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
Antwort 5 von Saarbauer vom 21.08.2020, 19:53 Options
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