online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon RAMIREZ-003 vom 21.08.2020, 16:49 Options

Lösung

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

Lö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

Ähnliche Themen

Datum in einem Makro umwandeln
Jungdra  31.05.2007 - 79 Hits - 11 Antworten

Makro speichern
sonja23  29.07.2007 - 63 Hits - 14 Antworten

excel aktuellen preis finden nach datum
hasiweiss  31.12.2007 - 131 Hits - 11 Antworten

Akuelle Datum automatisch in Dateiname speichern
Micha12345  20.06.2008 - 74 Hits - 1 Antwort

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026