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

Makro vor speichern (bzw. vor Schließen) ausführe

Makro vor speichern (bzw. vor Schließen) ausführe
19.07.2007 10:14:00
erriso
Hallo Ihr leiben Experten.
Ich habe ein Makro (natürlich aus dem Herber-Forum), das die Datei nach dem
Inhalteiner Zelle umbenennt:

Sub speichern()
Dateiname = Range("A3").Value
ActiveWorkbook.SaveAs FileName:="C:\Excel\" & Dateiname & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub


Dieses möchte ich nun entweder beim Verlassen der Zelle
bzw. vor dem Speichern ausführen.
Kann mir da jemand helfen und das Ding ggf. umschreiben, da ich
KEINEN Plan von Makros habe.
Vielen Dank
erriso

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro vor speichern (bzw. vor Schließen) ausführe
19.07.2007 10:38:41
Chaos
Servus,
statt
sub speichern()
dies:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'dein Makro
End Sub


In DieseArbeitsmappe
Gruß
Chaos

AW: Makro vor speichern (bzw. vor Schließen) ausführe
19.07.2007 10:46:00
erriso
Hallo!
Vielen Dank, läuft aber noch nicht. Liegt bestimmt an mir.
Kannst Du mir noch mal helfen?
Habe das jetzt so in Tabellenblatt 1 geschrieben:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dateiname = Range("A3").Value
ActiveWorkbook.SaveAs FileName:="C:\Excel\" & Dateiname & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub


Danke erriso

Anzeige
AW: Makro vor speichern (bzw. vor Schließen) ausführe
19.07.2007 10:52:00
Chaos
Servus,
hab doch DieseArbeismappe geschrieben.
Das Makro speichert dann beim Schließen.
Also nicht Tabelle1, sondern DieseArbeitsmappe.
Gruß
Chaos

AW: Makro vor speichern (bzw. vor Schließen) ausfü
19.07.2007 10:48:00
Beverly
Hi,
Alternative beim Eintrag des Namens in A3

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" And Target  "" Then ActiveWorkbook.SaveAs Filename:="C:\Excel\" _
& Target & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub


Code nach Rechtsklick auf den Tabellenreiter -&gt Code anzeigen... in das Codefenster kopieren.
________________________________________

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige