Tägliches backup

[Nixblick0815]

Hallo!
Wie kann ich den Code als makro speichern?

Code:

Private Sub Workbook_Open()
ActiveWorkbook.SaveCopyAs Filename:= _
("C:\Dokumente und Einstellungen\irgendwas\Eigene Dateien\Sicherung\" & "Sicherung  " & Format(Now, "dd-MM-yyyy_HH-MM") & ".xls")
End Sub

Ich gehe auf Makro aufzeichen dann beenden, nun wird er angezeigt. dann drücke ich beabeiten und gebe die Zeilen ein.
Arbeitsblatt speichern und wieder öffnen dann ist das makro weg.
Im Visual Basic Editor ist er aber noch da.

Was mache ich falsch?

[RPP63]

Halllo!
Ein Workbook_Open gehört ins Klassenmodul DieseArbeitsmappe
Klicke doppelt darauf und kopiere.

Allerdings würde ich .xlsm als Dateiendung nehmen.

Gruß Ralf

[Rabe]

Hi,

Arbeitsblatt speichern und wieder öffnen dann ist das makro weg.
Im Visual Basic Editor ist er aber noch da.

das ist ein Widerspruch in sich:
entweder es ist weg, dann ist es genau im Editor weg
oder
es ist im Editor da, dann ist es eben auch noch da!

Was jetzt?

[Käpt'n Blaubär]

Hallo,

wo das Makro hingehört, das ist Dir ja schon verraten worden.

Interessehalber frage ich mal nach, wo das Ding jetzt steht, weil Du ja schreibst, Du hast es aufgezeichnet.

Ab xl2007 speichert man Dateien die Makros beinhalten im *.xlsm- oder im *.xlsb-Format, denn sonst
sind sie ganz plötzlich weg, die Makros.

[RPP63]

Hallo Peter!

weil Du ja schreibst, Du hast es aufgezeichnet.

Mit Schwestern des Neffen! :19:
Der TE beschrieb nur einen ausgesprochen unorthodoxen Weg, in den VBA-Editor zu gelangen.
Quasi eine sofort abgebrochene Aufzeichnung.
(Alt+F11 wäre einfacher gewesen)

Gruß Ralf

[Rabe]

Hi Ralf,

Der TE beschrieb nur einen ausgesprochen unorthodoxen Weg, in den VBA-Editor zu gelangen.
Quasi eine sofort abgebrochene Aufzeichnung.

und in Erweiterung schrieb er:

und gebe die Zeilen ein.

also ist schon ein Makro vorhanden.

[RPP63]

Hi Ralf!
Zunächst mal ist ja nur plain text irgendwo im Editor vorhanden.
Nix Makro.

Gruß Ralf

[Käpt'n Blaubär]

Hallöchen ihr Ralf's,

ich habe mir den Eingangsthread nun noch ein paarmal durchgelesen und ...
ich würde es wirklich gerne vorgeführt bekommen, was da wie gelaufen ist.
Es muß absolut göttlich gewesen sein.

Da ich demnächst mal wieder ein Weilchen in einem Krankenhaus sein darf
werde ich meine freien Kapazitäten dafür nutzen, für unsere ForenAbteilung
"VBA ... von ganz, ganz vorne" grundlegende Aufsätzchen zu schreiben.

Dann ist sie wenigstens halbwegs brauchbar genutzt, die öde Wartezeit
zwischen den einzelnen Anwendungen und Untersuchungen.

[schauan]

Hallöchen,

Der TE hat vielleicht eine Schaltfläche oder ein anderes Formularsteuerelement eingefügt. Wenn man mit dem entsprechenden Dialog oder auch unabhängig davon über die Entwicklertools das Makro aufzeichnet wird dann im Dialog auch etwas angezeigt, zwar nicht der Code, aber der Name des Makros.
Wenn nun der Name des Makros in "Private..." geändert wird, dann ist es im VBA-Editor noch da, wird aber im Dialog nicht mehr angezeigt - ist also dort weg ...

[RPP63]

Moin!
Frisch ausgeruht kann man die Frage des TE natürlich auch anders verstehen:

Wie kann ich den (folgenden) Code als makro speichern?

@nixblick:
Was Du da vorliegen hast, nennt sich Ereignismakro, gehört ins Modul DieseArbeitsmappe und startet automatisch beim Öffnen der Datei.
Wenn Du es als ausführbares Makro haben willst, es also per Schaltfläche oder per Alt+F8 jederzeit ausführen willst, gehst Du so vor:
Öffne den VBA-Editor per Alt+F11
Erzeuge ein allgemeines Modul mittels Einfügen, Modul
Gib dem Makro einen beliebigen Namen (ohne Private)

Code:

Sub Mein_Makro()
ActiveWorkbook.SaveCopyAs Filename:= _
   "C:\Dokumente und Einstellungen\irgendwas\Eigene Dateien\Sicherung\" & "Sicherung  " & Format(Now, "dd-MM-yyyy_hh-nn") & ".xlsm"
End Sub

Gruß Ralf