Office: (Office 2003) Dokument vortaufend automatisch speichern

Hallo Leute

Ich Suche nach einer Lösung und hoffe mir kann hier einer weiter helfen.
Ich möchte gerne ein EXCEL Dokument vortaufend automatisch speichern, sprich, die Originale Datei soll nicht überschrieben werden sondern es soll jedes mal eine neue Datei gespeichert werden z.B. Rechnung_001, Rechnung_002 u.s.w

Ist das realisierbar ?

 

Hallo Nenad,

anbei mein Code dazu:

Code:

Versuch = 0
DateiSuche = Dir(ThisWorkbook.Path & "\Sicherung\" & "Testdatei (*).xlsm")
Do Until DateiSuche = ""
' .Print DateiSuche
    DateiSuche = Dir()
    Versuch = Versuch + 1
Loop
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\Sicherung\" & "Testdatei (" & Versuch & ").xlsm"

Gruß,
Lutz

 

@Lutz Fricke
Muss ich das als Marco einfügen?

Weil irgendwie funktioniert das bei mir nicht

 

Hallo Nenad,

na klar, ohne Makro geht's nicht (ich wüsste jedenfalls nicht wie).

Anbei der gesamte Code, der als Modul in "Diese Arbeitsmappe" gehört:

Code:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

Dim DateiSuche, Versuch

Application.DisplayAlerts = False
Application.EnableEvents = False

Versuch = 0
DateiSuche = Dir(ThisWorkbook.Path & "\Sicherung\" & "Rechnung_*.xlsx")
Do Until DateiSuche = ""
' .Print DateiSuche
    DateiSuche = Dir()
    Versuch = Versuch + 1
Loop
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\Sicherung\" & "Rechnung_" & Versuch & ").xlsx"

Application.EnableEvents = True
Application.DisplayAlerts = True

End Sub

Bei Fragen einfach fragen.

Gruß,
Lutz

 

@Lutz Fricke

Danke für dein Code

keine Ahnung was ich falsch mache. Aber bei mir geht das nicht.
Ich habe deinen Code mit ALT F11 eingefügt.
Aber wenn ich jetzt auf dem Speicher Button Drücke passiert gar nichts. bzw. es Speichert die Datei ganz normal ab

 

Hallo Nenad,

nach dem Drücken von Alt F11 öffnet sich der VBA-Editor. Hier hast Du links oben ein Fenster, in dem "Diese Arbeitsmappe" in der Hierarchie steht. Diesen Punkt doppelklicken und dann im Fenster den Code einfügen.

Du musst die Datei irgendwo speichern (als *.xlsm), damit Die Datei einen Pfad hat. In diesem Pfad benötigst Du einen Unterordner "Sicherung".

Sollte es nicht funktionieren, vor die Zeile "Application.DisplayAlerts = False" klicken, dann erscheint die Zeile rot. Jetzt nochmal probieren, dann sollte dein Code aufpoppen und besagte Zeile mit einem gelben Pfeil markiert sein.

Gruß,
Lutz

 

@Lutz Fricke

Neee, also das will bei mir irgendwie nicht :-(

Also das wir uns richtig verstehen

Meine Originale Datei liegt bei DOKUMENTE
und in diesem habe ich einen extra Ordner angelegt mit dem Namen Sicherung

 

Hallo Nenad,

das hört sich gut an (evtl. probierst du einen Ordner auf C:\. Ich hatte letztens ganz merkwürdige Dinge beim Speichern auf den Desktop...).

Was ist denn genau das Problem?
Passiert etwas? Passiert nichts? Gibt's ne Fehlermeldung?

Du kannst auch versuchen, in das unterste Fenster (Direktfenster) die Zeile
Application.EnableEvents = True
einzugeben und mit Enter zu bestätigen. Anschließend nochmal versuchen.

Gruß,
Lutz

 

Beim Drücken auf Speichern passiert einfach gar nichts. Außer das normale Speichern
Keine Fehlermeldung

 

Kannst Du nen Screenshot vom VBA Editor posten?

 

Code markieren, ausschneiden.

im linken Fenster, 4. Zeile doppelklicken. Code im rechten Fenster einfügen.

Versuchen...

 

@Lutz Fricke
Ich habe den Fehler gefunden.
Ich benutze ja Excel 2003 auf dem Desktop Rechner. Da funktioniert der Code nicht.
Ich habe es jetzt mit Excel 2016 probiert was ich auf mein Laptop drauf habe und da funktioniert es.

Meine frage...
Hast du auch einen Code für die 2003 Version?

Kann man bei deinen jetzigen Code statt die 01 ein Datum und Uhrzeit hinzufügen?
Kann man statt "Rechnung" es so machen das der Originale Name automatisch übernommen wird?

Als beispiel....ich habe eine Rechnungen Name "Müller". Die soll dann in der Sicherung "Müller+Datum+Uhrzeit" gespeichert werden?
Oder muss ich das Manual im Code machen?

edit:
ist es möglich das statt...... "\Sicherung" & "Rechnung_" & Versuch & "
zum beispiel....... "\Sicherung" & Excel Zelle D13_Datum+Uhrzeit & Versuch &" ?

Also statt den Namen "Rechnung" soll die Zelle D13 ausgelesen werden und den Eintrag nehmen.

Hoffe Du verstehst was ich meine?

 

Hallo Nenad,

was mit Excel2003 funktioniert und was nicht, kann ich leider nicht sagen. Ich wüsste aber nicht, warum es nicht funktionieren sollte.

Wie stellst Du Dir den Dateinamen vor? Gibt mal ein konkretes Beispiel.
Datum in 01.01.1900 oder 1900-01-0? Uhrzeit in 12:00 oder 12:00:00? Verbunden mit _ oder Leerzeichen? usw.
Zellinhalte sind kein Problem...

Gruß,
Lutz

 

@Lutz Fricke
Keine Ahnung. Auf jeden fall funktioniert es mit 2003 nicht :-(
Habe es mir so vorgestellt...
"Zelleninhalt D13 01.01.1990_001 12:00:00"
alternative
""Zelleninhalt D13 D15 01.01.1990_001 12:00:00"