Office: (Office 2010) VBA

Liebe Profi's,

Ich bräuchte bitte nochmal Eure Hilfe....

Gibt es einen Macrobefehl, der eine Excel-Datei jedes Monat in ein Verzeichnis nach meiner Wahl automatisch abspeichern kann?
Sprich eine Art Sicherungskopie erstellen.

Die Datei sollte z.B. am 31. Jänner / 23:59 Uhr abgespeichert werden...
Die Datei sollte z.B. am 28. Februar / 23:59 Uhr abgespeichert werden...(außer es ist ein Schaltjahr)
Die Datei sollte z.B. am 31. März / 23:59 Uhr abgespeichert werden...
usw..... (Vielleicht kann er die Systemzeit vom benutzten Rechner nehmen?)

Datei soll lauten: Dateiname_Jahr_Monat_.xlsm

Danke, lg Ivy

:)

 

Hi Ivy,

das ist etwas kompliziert, aber sicher machbar. Wie soll denn das Verzeichnis vorgegeben werden - steht es in einer Zelle? Versuche es mal nach folgendem Prinzip (angenommen das vorgegebene Verzeichnis steht in Tabelle1 Zelle A1):
Kopiere folgenden Code ins Codemodule DieseArbeitsmappe:

Code:

Damit wird ein Makro gestartet, dass jede Sekunde erneut aufgerufen wird - und zwar folgendes Makro, welches du in ein allgemeines Modul kopieren musst:

Code:

Bedingung des ganzen ist natürlich, dass der Rechner zu diesem Zeitpunkt nicht ausgeschaltet ist.

 

Hallo Karin,

Ich danke dir für die schnelle Antwort.

Die Datei liegt in einem Netzwerkpfad. Nicht am Rechner.
Wenn es zu umständlich ist, kann man die Zeit weglassen. Die ist nicht so wichtig.
Ich möchte, dass die Datei am Ende des Monats an einem anderen Netzwerkpfad automatisch gesichert wird.

Es ist auch nicht an eine Zelle gebunden, oder meinst du, dass man in "A1" die Zeit einfügt (Bezug?).

Vielleicht ist es leichter, wenn man am letzten Tag die Datei öffnet, entweder Eingaben macht oder nicht und beim Schließen automatisch eine Sicherungskopie angelegt wird?

Danke, lg Ivy

 

Hi Ivy,

Und wo oder wie ist vorgegeben, wie das Verzeichnis heißt? Es kann doch nicht irgend eins sein... *wink.gif*

Wenn du keine Uhrzeit willst, dann lasse einfach die Zeile If Hour(Time) = 23 And... und das dazugehörige End If weg.

 

Hi Karin,

Ich hatte daran gedacht, dass der bestehende Name der Datei übernommen wird, mit Jahr und Monat....
Den Pfad im Netzwerk kann man ja definieren, oder?

Lg Ivy

 

Hi Ivy,

Hast du dir die Kommentare im Code durchgelesen? Genau das macht der Code doch.

Ich denke schon - das musst du im Code halt anpassen, da ich den nicht kenne. Wenn du ihn nicht in eine Zelle schreiben willst, dann ersetze in dieser Zeile

Code:

alles nach dem "=" durch deinen Verzeichnisnamen.

 

Hallo Karin,

Ich habe vielleicht etwas gefunden, aber noch nicht ausprobiert.

Glaubst du der Code könnte funktionieren?

Code:

Ist der Code ausbaufähig ?

Lg Ivy

 

Verzeih Karin,

Ich habe nicht richtig gelesen.
Jetzt kenne ich mich aus.
Werde deinen Code ausprobieren.

Dankeschön, lg Ivy

 

Hi Karin,

Ich habe deinen Code probiert.
Aber irgendwas mache ich falsch.

Ich habe die Systemzeit geändert auf das Ende des Monats.
Aber es macht mir keine Sicherungsdatei.

Ich habe als Pfad die Zelle "A1", aber auch andersrum mit dem Dateipfad im Netzwerk angegeben.

Lg Ivy

 

Hi Ivy,

den Pfad musst du entweder ohne \ am Ende schreiben, da er im Code angehängt wird, oder du löschst an beiden Stellen den Teil & "\" aus dem Code.

Wenn du den Code testen willst, musst du nicht nur das Datum auf den Monatsletzten sondern selbstverständlich auch die Uhrzeit auf kurz vor 23:59 stellen, damit du das Speichern beobachten kannst. Andere Möglichkeit: du löschst - wie schon geschrieben - die Zeilen für die Uhrzeit (oder kommentierst sie aus, falls du sie doch weiterverwenden willst).

 

Hi Karin,

Ich habe am Schluss \ aus Zelle "A1" entfernt.
Ich habe beide & "\" herausgenommen und das \ am Schluss in Zelle "A1" angehängt
Ich habe am Schluss \ aus Zelle "A1" entfernt und habe beide & "\" herausgenommen.
Ich habe immer das Enddatum und die Uhrzeit eingegeben.

Funktioniert leider trotzdem nicht.

Funktioniert die Datei bei dir, die ich im Anhang hatte?

Lg Ivy

 

Was genau funktioniert nicht - kommt ein Fehler oder wird keine Kopie erstellt?

Ja, ich habe den Code mit deiner Mappe getestet.


Ergänze mal im Zeitmakro gleich zu Beginn diese Codezeile

Code:

speichere die Mappe und öffne sie wieder - danach sollte in Tabelle1 Zelle A2 (kannst selbstverständlich auch eine andere Tabelle und andere Zelle nehmen) die laufende Uhrzeit angezeigt werden. Das wäre dann ein Zeichen, dass das Zeitmakro an sich schon mal funktioniert. Wenn das der Fall ist, müssen wir dann weiter sehen. Andernfalls müsstest du deine mappe mit dem eignefügten Code nochmal hochladen.

 

Habe ich gemacht...
Funktioniert leider nicht...
Es kommt keine Fehlermeldung.
Es wird lediglich keine Kopie erstellt...

 

Dann lade bitte deine Mappe mit dem Code hoch.

 

Hallo,

Ich habe einstweilen nur die leere Datei mit dem Makro.

Danke für deine Bemühungen
Lg Ivy