Herbers Excel-Forum - das Archiv

automatisches sichern einer Tabelle

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: automatisches sichern einer Tabelle
von: rupi2

Geschrieben am: 13.12.2006 09:59:33
Hallo Ihr Wissenden........
gibt es eine Möglichkeit eine Excel-Tabelle z.B. immer Montag morgen
als Sicherung in einen anderen Ordner zu kopieren ( ohne selber etws
dafür zu tun - Makros oder so ) ??
Grund: wir sind eine Firma mit Außendienstmitarbeitern die Daten in
eine Exceltabelle eintragen müssen, aber von Excel eigendlich
keine Ahnung haben. Ich selber bin aber auch unregelmäßig im
Büro, um es selber zu sichern.
Danke im Vorraus
und frohes Fest
Bild

Betrifft: AW: automatisches sichern einer Tabelle
von: Christian

Geschrieben am: 13.12.2006 10:25:42
Hallo Rupi2,
ich hatte in der Firma ein ähnliches Problem. Die Exceldatei liegt auf einem Abteilungslaufwerk und wird von mehreren Mitarbeitern bearbeitet.
Jeder Mitarbeiter hat sich ein Ordner Sicherungskopien angelegt und die ich habe an
den Button zum Speichern und schließen(CommandButton6)auf der Hauptseite folgendes installiert, damit die letzte Änderung mit Datum auch als Sicherungskopie gespeichert wird.
Vielleicht kannst Du damit ja etwas anfangen, wenn Du es etwas anpasst.
Dim Datum As Date
Private Sub CommandButton6_Click()
heute = CDate(Date)
ActiveWorkbook.SaveCopyAs "H:\Office\Arbeit\Excel\Sicherungskopien\Eingänge & Abgänge Sicherungskopie" & (Date) & ".XLS"
SaveChanges = True
Workbooks.Close
End Sub

Bild

Betrifft: AW: automatisches sichern einer Tabelle
von: Hoffi

Geschrieben am: 13.12.2006 10:34:03
Hallo,
ich würde dies im Workbook_Open Ereignis abfragen und entsprechend reagieren.
Private Sub Workbook_Open()
Dim Pfad As String
Dim WT As String
Dim Nam As String
Nam = ThisWorkbook.Name & "-Kopie" 'eventuell Name anpassen
WT = Weekday(Now, vbMonday) 'WT ist der Wochentag ausgehend von Heute und Montag ist der erste Tag in der Woche
Pfad = "C:\Test\" 'Pfad entsprechend anpassen
Select Case WT
Case 1 'ist Heute Montag dann wird gespeichert
ThisWorkbook.SaveAs Pfad & Nam & ".xls"
Case Else
Exit Sub 'ist Heute nicht Montag dann passiert nix
End Select
End Sub

Grüße
Hoffi
P.S. Rückmeldung wäre nett...
 Bild
Excel-Beispiele zum Thema "automatisches sichern einer Tabelle"
Automatisches Komplettieren einer Zelleingabe Symbolleiste sichern
Suche über mehrere Tabellen Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen. Tabellenblätter benennen
Tabellenblatt auswählen Zustand von Tabellenblatt-Checkboxes ermitteln