Hallo,
Ich möchte eine Exceldatei automatisch beim Schließen der Datei in einem anderen Verzeichnis per Makro sichern.
Per Hand mit einem Makro krieg ich das schon hin.
Sub speichern_unter()
Dim str As String
Const Lw = „H:“
Const Pfad = „H:\Sicherungen“
str = ActiveWorkbook.Name
ChDrive Lw
ChDir Pfad
ActiveWorkbook.SaveAs Filename:=str, FileFormat:=xlNormal
End Sub
Aber so richtig gefällt mir das noch nicht, die Datei soll beim Schliessen automatisch ohne irgendwelche Zwischenabfragen in einem anderen Verzeichnis gespeichert werden.
Ich hoffe auf Eure Hilfe.
Wolfgang
Aber so richtig gefällt mir das noch nicht, die Datei soll
beim Schliessen automatisch ohne irgendwelche Zwischenabfragen
in einem anderen Verzeichnis gespeichert werden.
Ich hoffe auf Eure Hilfe.
Hi Wolfgang,
gehe in den Vb-Editor, doppelklicke auf DieseArbeitsmappe, füge den Code ein:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
kopiere in diese Prozedurhülle deinen Code. Dann müßte das klappen.
Wenn nicht, melde dich nochma.
Gruß
Reinhard
Anmerkung
Hi,
momentan komme ich gerade nicht dazu, daß zu testen, aber ich vermute, das führt dazu, daß die Datei nur an der neuen Stelle gespeichert wird.
Also unbedingt prüfen, bevor man der Konstruktion blind vertraut.
Daniel
Hi,
momentan komme ich gerade nicht dazu, daß zu testen, aber ich
vermute, das führt dazu, daß die Datei nur an der neuen
Stelle gespeichert wird.
Also unbedingt prüfen, bevor man der Konstruktion blind
vertraut.
Hallo Daniel,
Vielen Dank für Deinen Hinweis, ich werde dies berücksichtigen.
Gruß Wolfgang
Hallo Reinhard,
erstmal vielen Dank, ich denke, ich komme zurecht auch Dank dem Hinweis von Daniel.
Gruß Wolfgang