Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelt speichern

Forumthread: Doppelt speichern

Doppelt speichern
06.10.2008 09:46:00
Benjamin
Hallo zusammen!
Kann mir jemand helfen ich steh vor folgendem Problem:
Ich möchte eine Datei doppelt abspeichern also einmal ganz normal speichern und einmal in einem Archiv, welches dann als Version abgespeichert wird z.B.:
Erster Benutzer ändert etwas und speichert es am 2 Oktober: 08-10-02_01, der zweite Benutzer der dann an diesem Tag etwas ändert und abspeichert bekommt dann automatisch im Archiv den fortlaufenden Namen: 08-10-02_02 und so weiter... dann sollte es für jeden Tag angepasst werden, also: 08-10-03_01 und so weiter.
Das ganze sollte in der Excel Tabelle in ein Zeile bzw. in der Symbolleiste verfügbar sein.
Ich hoffe ihr könnt mir helfen!
Vielen Dank im Voraus.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelt speichern
06.10.2008 10:43:00
Daniel
Hi
wenn du dieses Makro im Modul "DieseArbeitsmappe" ablegst, wird automatisch bei jedem Speichern eine Archiv-Version angelegt.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Version As String
Version = ThisWorkbook.BuiltinDocumentProperties(5).Value
If Left(Version, 8) = Format(Date, "YY-MM-DD") Then
Version = Left(Version, 9) & Format(CInt(Right(Version, 2)) + 1, "00")
Else
Version = Format(Date, "YY-MM-DD") & "_01"
End If
ThisWorkbook.BuiltinDocumentProperties(5) = Version
ThisWorkbook.SaveCopyAs "C:\Dein_Archivpfad\" & ThisWorkbook.Name & " " & Version & ".xls"
End Sub


Gruß, Daniel

Anzeige
AW: Doppelt speichern
06.10.2008 11:28:21
Benjamin
Dank dir erstmal! Bin mit Makros in ein Neuland vorgestoßen und versuch mich da mal einzuarbeiten, vielleicht kannst du mir noch kleine Hilfestellungen geben.
Danke!
AW: Doppelt speichern
06.10.2008 13:33:00
Benjamin
Hallo nochmals!
Könnte mir jemand erklären wie man hier Schritt für Schritt vorgeht? Bin hier doch überfordert.
Bitte helft mir!
Anzeige
AW: Doppelt speichern
06.10.2008 14:32:30
Daniel
Hi
zunächst erst mal:
Das Makro läuft immer ab, wenn die Datei gespeichert wird.
folgende Schritte:
1. die Versionsnummer wird aus den Dokumenteingenschaften "Kommentar" ausgelesen (das sind die bei DATEI - EIGENSCHAFTEN
2. der linke Teil der Versionsnummer wird mit dem aktuellen Datum verglichen, ist es gleich, dann
3a. die neue Versionsnummer wird erstellt, das ursprüngliche Datum bleibt erhalten und er rechte Teil (Zähler ) wird um 1 erhöht
3b. Datum ist nicht gleich, die neue Versionsnummer wird erstellt aus dem aktuellem Datum und dem Zähler 01
4. die neue Versionsnummer wird in die Dokumenteigenschaften "Kommentar" zurückgeschrieben
5. die Datei wird mis SAVECOPYAS unter dem Archivpfad mit der Versions-Nr als Name gespeichert. Durch SaveCopyAs bleibt der Original-Name und Speicherort der Datei erhalten.
ansonsten erhälst du zu jedem Befehl eine Hilfe, wenn du den Cursor auf den Befehl setzt und F1 drückst.
Dadurch, daß ich die aktuelle Versionsnummer in einem frei beschreibbaren Feld ablege, erspare ich mir, das Archivverzeichnis zu durchsuchen, welches grade die aktuelle versions-nummer ist.
Gruß, daniel
Anzeige
AW: Doppelt speichern
06.10.2008 15:14:00
Benjamin
Hi,
bei mir speichert es keine Datei in dem Pfad den ich angebe.
AW: Doppelt speichern
06.10.2008 15:42:25
Daniel
Hi
bei funktioniert das Makro einwandfrei und speichert die Datei im angegebenen Archivordner (sofern dieser vorhanden ist) problemlos ab.
Wenn, dann liegt es an deiner Datei, deiner Excelversion oder an einem Tipfehler beim Übertragen des Makros bzw des Anpassen des Archivordners.
das einzige, was stören könnte, wäre das ".xls" innerhalb des Dateinamens, sollte aber ab XP auch nicht mehr zu einem Fehler führen.
wenn es stört, kann man das beheben, in dem man die Zeile zum Speichern so abändert.

ThisWorkbook.SaveCopyAs "C:\Temp\" & Replace(ThisWorkbook.Name, ".xls", "") & " " & Version & ".xls"


Gruß, Daniel

Anzeige
;

Forumthreads zu verwandten Themen

fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Speichern
Baywatch

Wie kann ich eine Dtei automatisch alle 60 sekunden speirchern lassen und das an mehreren Orten? heißt festplatte und usb stick zum beispiel?
14.08.2008 17:58:00
Thread-ID: 1001932
2 Beiträge
Tabellenblätter speichern
Rene

Moin zusammen,
Ich bräuchte mal wieder ein wenig Hilfe.
Ich habe eine Excel- Mappe mit 3 Tabellenblättern beim schließen der Mappe speichert es mir diese Tabelle nicht ab um keine Daten zu verändern. Nun wollte ich aber das 2 Blätter doch gespeichert werden sollen.
Tabelle 1 NICHT s...
15.08.2008 16:43:11
Thread-ID: 1002248
4 Beiträge
Ausgelesene Exceldatei speichern!
Botti

Hallo,
folgendes Problem:
Ich lese mit Hilfe eines Makro von der Datei A die Datei B aus... Dabei untersucht das Makro ob ein bestimmtes Sheet in einer Reihe von Sheets an einer bestimmten Stelle ist und verschiebt es für den negativen Fall an die richtige Stelle/Position. Soweit so gut...
20.08.2008 18:28:01
Thread-ID: 1003275
2 Beiträge
VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
speichern unter
Petra

Schönen Tag allerseits
bei der Speicheroption:
speichern unter: "formatierter Text (Leerzeichen getrennt) (*.prn)"
wird bekanntlich ein Textfile gespeichert.
Mein Problem: Excel hängt am Ende der Tabelle ein linefeed oder ähnliches an. Man kann dies überprüfen, wenn man die *.p...
21.08.2008 14:31:00
Thread-ID: 1003499
5 Beiträge
VB - Speichern - akt.woche.xls
Andi

Hallo Experten,
Ich steh mal wieder an und wär dankbar wenn Ihr mir weiterhelfen könntet. Und zwar versuch ich eine Excel-datei unter der aktuellen Woche abzuspeichern. (z.b. Woche33.xls). Die Wochenzahl sollte automatisch generiert werden.
Ich hab diesen Befehl mit dem aktuellen Datum...
22.08.2008 14:59:34
Thread-ID: 1003901
4 Beiträge
Befehl "Speichern unter"
Schulze

Halli Hallo,
ich habe mal eine kurz eFrage. Und zwar habe ich eine Excel Tabelle, die ich per Makro als eine neue Datei unter einem bestimmten Pfad speichern möchte. Der Dateiname soll das aktuelle Datum enthalten.
Viel Dank im Vorraus für die Hilfe.
Gruss Melchior
25.08.2008 10:31:00
Thread-ID: 1004391
4 Beiträge
Tb.Blatt nach Zellwert speichern
Peter

Guten Morgen allerseits,
mir raucht als VBA Neuling der Schädel, vielleicht könnt Ihr mir helfen. Ich versuche Tabelle 2 in Abhängigkeit einer Zelle in Tabelle 1 in einem bestimmten Ordner zu speichern, wobei das speichern erst
zulässig sein darf wenn alle einzugebenen Daten vorhanden s...
28.08.2008 09:50:00
Thread-ID: 1005302
3 Beiträge
Bilddatei mit neuem Namen speichern
egonkernien

Hallo wer hilft bitte?
Guten Abend.
Ich möchte eine Dialogbox aufrufen, dort eine Bilddatei auswählen.
Ich möchte diese Bilddatei in ein Image1 auf einer Userform laden. Z.B. D:\Daten\Bilder\DSC0011.jpg
Dann diese Bilddatei umbenennen in D:\Daten\Test\082008_01.jpg, abspeichern...
28.08.2008 22:32:28
Thread-ID: 1005608
5 Beiträge
Zwischenspeichern und am Ende wieder löschen
Werner

Hallo!
Ich will eine Datei per Mail versenden.
Dazu öffne ich meine xls-Vorlage.
Die Datei soll dann zwischengespeichert und danach verschickt werden.
Am Ende soll die neu entstandene Datei wieder gelöscht werden.
Gibt es da eine Möglichkeit?
Ich finde einfach nix oder c...
02.09.2008 07:59:41
Thread-ID: 1006629
2 Beiträge
Änderungsdaatum beim speichern eintragen
chris

Hallo guten morgen zusammen,
habe eine kleine frage.Antwort denke ich kann nur aus einem ja oder nein bestehen.
Ist es möglich bei einer Änderung in einer Datei oder erst beim speichern der Datei einen Eintrag in eine Zelle einzutragen mit der aktuellen (Änderungs) Zeit?
Geht das oh...
04.09.2008 06:57:00
Thread-ID: 1007259
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige