Hilfe für Makro

[NoIdea2019]

Hallo,
ich bin neu hier und hoffe sehr ihr könnt mir helfen.
Ich komm in Ecxel soweit zurecht, mir mit ein paar Formeln das arbeiten zu erleichtern. :19:

Nun möchte ich aber gerne ein Makro erstellen, und davon hab ich absolut keine Ahnung.

Es soll folgendes ausführen:

Nachdem in der ExcelDatei etwas geändert wurde und ich dann auf speichern gehe, soll es mir automatisch eine Sicherungskopie mit dem aktuellen Datum abspeichern.

Ich habe schon viel im Internet gefunden und ausprobiert aber bekomm es einfach nicht hin.
Hab auch gelesen das man das Marko nicht unter Modul sondern unter "DieseArbeitsmappe" eingeben muss.
Bekomm es aber nicht unter Arbeitsmappe. Es steht immer unter Modul :22:

Kann mir bitte jemand helfen?

[UweD]

Hallo

in Excel

- ALT +F11
- Strg +R

- links deine Datei suchen
- Doppelclick auf DieseArbeitsmappe

- rechts dann den Code eintragen.




Beispiel:

Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   On Error GoTo Fehler
   Const APPNAME = "Workbook_BeforeClose"
   
   Dim NName As String, Pfad As String
   Cancel = True
   
   With ThisWorkbook
       NName = .Name
       Pfad = .Path & "\"
       
       'Originaldatei speichern
       .Save
       
       'Kopie speichern
       .SaveAs Filename:=Pfad & Format(Date, "YYYY_MM_DD") & "_" & NName, FileFormat:= _
           xlOpenXMLWorkbookMacroEnabled
           
       Application.EnableEvents = False
       .Close
   End With
   
   
   '*** Fehlerbehandlung
   Err.Clear
Fehler:
   Application.EnableEvents = True
   If Err.Number <> 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
       & "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD

[NoIdea2019]

Hallo UweD

vielen lieben Dank.

Funktioniert genauso so wie gewünscht.

Danke Danke Danke :19:

---

Könnte man evtl. noch die Uhrzeit mit einbauen

[UweD]

Klar...


Now anstelle von Date
und das Format anpassen...

Code:

.SaveAs Filename:=Pfad & Format(Now, "YYYY_MM_DD_hh_mm_ss") & "_" & NName, FileFormat:= _
          xlOpenXMLWorkbookMacroEnabled

LG UweD

[NoIdea2019]

Du bist Spitze danke. :18:

Hätte dir eine private Nachricht geschrieben.
Bin mir aber nicht sicher ob du sie bekommen hast.

[NoIdea2019]

Jetzt hätte ich noch eine Frage zu dem Makro

Wo müsste ich genau den Dateipad ändern wenn ich es in einem seperaten Ordner "Sicherung" gespeichert haben möchte?

Hoffe es war die letzte Frage.

[UweD]

Hallo nochmal


hier z.B.

Code:

Pfad = .Path & "\"

da wird der aktuelle Pfad der Datei genommen

Extraverzeichnis:
Kannst du entweder Fix zuweisen oder z.B. anhängen...

Code:

Pfad = "X:\Sicherung\"



oder

Pfad= .Path & "\Sicherung\"

LG UweD

[NoIdea2019]

Vielen Danke
:18: