Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sicherungskopie

Forumthread: Sicherungskopie

Sicherungskopie
02.02.2019 14:11:52
Toni
Hallo Forum,
dieser nette Code macht eigentlich schon alles. Jetzt wäre nur noch wünschenswert, dass nicht die ganze Mappe sondern nur das Tabellenblatt "Hühner" als Sicherungskopie hinterlegt wird, während die Mappe selbst ganz normal wie ohne Sicherung gespeichert wird. So hätte ich einen Versionenverlauf für diese Tabelle.
  • 
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Me.SaveCopyAs "C:\Users\Wilk\Documents\Neuer Ordner\Sicherungskopie\" & "Hühner" _
    & Format(Now, "dd.mm.yyyy_hh.mm.ss") & "_" _
    & Application.UserName & "_" & Me.Name
    End Sub
    

  • Grüße
    Toni
    Anzeige

    2
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Sicherungskopie
    02.02.2019 14:31:01
    Nepumuk
    Hallo Toni,
    teste mal:
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        Application.ScreenUpdating = False
        Worksheets("Hühner").Copy
        Call ActiveWorkbook.Close(SaveChanges:=True, Filename:= _
            "C:\Users\Wilk\Documents\Neuer Ordner\Sicherungskopie\" & "Hühner" & _
            Format(Now, "dd.mm.yyyy_hh.mm.ss") & "_" & _
            Application.UserName & "_" & Me.Name)
        Application.ScreenUpdating = True
    End Sub

    Gruß
    Nepumuk
    Anzeige
    AW: Sicherungskopie
    02.02.2019 14:51:21
    Toni
    Hallo Nepumuk,
    kleine Änderung bei der Dateiendung und displayalerts=false damit die Makros nicht mitgenommen werden und es funktioniert.
    Vielen Dank und Dir ein schönes Wochenende!
    lGrüße
    Toni
    ;

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige