Excel Makro für Datum im Dateinamen

Computer: Software & Programmierung Office Software
#1

Guten Tag Community,

will hier meine Excel Dateien harmonisch anordnen und wär ganz nett wenn ich mir dafür nen makro basteln könnte. das makro sollte die excel dateien mit passendem datum abspeichern. für word hab ich es schon hinbekommen, allerdings funktioniert es für Excel nicht. Wenn ich die Datei abspeichern will, unter „Speichern unter“, soll dort als Vorgabe schon das Datum in Form von „yyyyMMdd-“ stehen und nur noch der Dateiname angehängt werden müssen. Außerdem wärs nett, wenn er gleich in einen entsprechenden Unterordner springen würde. Ideen?

Liebe Grüße

#2

will hier meine Excel Dateien harmonisch anordnen und wär ganz
nett wenn ich mir dafür nen makro basteln könnte. das makro
sollte die excel dateien mit passendem datum abspeichern. für
word hab ich es schon hinbekommen, allerdings funktioniert es
für Excel nicht. Wenn ich die Datei abspeichern will, unter
„Speichern unter“, soll dort als Vorgabe schon das Datum in
Form von „yyyyMMdd-“ stehen und nur noch der Dateiname
angehängt werden müssen. Außerdem wärs nett, wenn er gleich in
einen entsprechenden Unterordner springen würde. Ideen?

Hallo Miep,

was genau hast du an der hiesigen Brettbeschreibung nicht verstanden?
Gib mal Tipps, soll man es da noch dicker hinschreiben, blinkend, farbig o.ä.?

Und wenn du eine Vba-Lösung für Word hast so zeige sie bitte, vielleicht lese ich da mehr als in deiner Beschreibung.

Gruß
Reinhard

#3

hier der word source code.

Sub FileSaveAs()

Dim DocName As String
Const Pfad As String = „G:\XX“
ChangeFileOpenDirectory „G:\XX“
With Dialogs(wdDialogFileSaveAs)

.Name = Format(Date, „yyyymmdd-“)
.Show
End With

End Sub

#4

Hallo Miep,

Sub FileSaveAs()
Dim DocName As String
Const Pfad As String = „G:\XX“
ChangeFileOpenDirectory „G:\XX“
With Dialogs(wdDialogFileSaveAs)
.Name = Format(Date, „yyyymmdd-“)
.Show
End With
End Sub

für was die Variablen Docname und Pfad wenn du sie gar nicht benutzt?

Und benutze beim Posten den Html-Tag pre, wird unterhalb des Eingabefensters erläutert, dann bleiben Codeeinrückungen erhalten.

Sendkeys ist zwar unzuverlässig, aber probier mal dieses

Sub tt()
Application.SendKeys Format(Date, „yyyymmdd“) & „.xls“
Application.Dialogs(xlDialogSaveAs).Show
End Sub

ungetestet dann vielleicht so:

Sub tt()
Chdrive „G“
Chdir „G:\XX“
Application.SendKeys Format(Date, „yyyymmdd“) & „.xls“
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Und, das ist jetzt ein Makro was du starten mußt. Wenn es in bestimmten Dateien automatisch ablaufen soll wenn du auf Datei–Speichern unter gehst muß man noch eine Kleinigkeit tun.
Gilt auch für Word.

Gruß
Reinhard

#5

hatte mir das makro eigentlich nur über google zusammengesucht, hab da nicht so viel ahnung von. das ganze funktioniert ja schonmal ganz gut. was muss ich jetzt noch hinzufügen, damit er es automatisch macht, wenn ich „speichern unter…“ wähle? beim word makro macht er es schon.