Makro zum Speichern

Forumthread: Makro zum Speichern
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makro zum Speichern

Makro zum Speichern

25.01.2003 21:47:03

Hardy B

Hallo, ich habe folgendes Problem.
Ich möchte per Makro Worksheets speichern, die auf einer Vorlage beruhen.Der zu speichernde Namen besteht aus dem jeiligen Erstellungs-Datum (JJJJ-MM-TT)und einem variablen "Keyword" aus dem Worksheet. Das Keyword befindet sich immer an der Selben stelle. Ich habe es mit "verketten" versucht, aber dann kann ich mit "cut and paste" den Zellinhalt nicht in das Dialogfeld bei "speichern unter..." einfügen.
Hat da jemand eine Idee?

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Makro zum Speichern

25.01.2003 21:54:24

Bernd Held
Re: Makro zum Speichern

25.01.2003 21:55:41

PeterW
Re: Makro zum Speichern

25.01.2003 22:40:37

Hardy B
Re: Makro zum Speichern

25.01.2003 23:00:36

Bernd Held

Re: Makro zum Speichern

25.01.2003 21:54:24

Bernd Held

Hallo Hardy,

eine Möglichkeit wäre folgende:

ThisWorkbook.SaveAs _
Format(ThisWorkbook.BuiltinDocumentProperties("creation date").Value, "YYYY-MM-DD") _
& "_" & Range("A1").Value & ".xls"

Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de

Re: Makro zum Speichern

25.01.2003 21:55:41

PeterW

Hallo Hardy,

sorry? Per Makro musst Du nicht mit "cut and paste" arbeiten. Lies den Namen in einen String ein und übergib diesen String dem Dialog.
Wenn Du weitere Fragen hast poste bitte Deinen Code.

Gruß
Peter

Re: Makro zum Speichern

25.01.2003 22:40:37

Hardy B

Bernd,
vielen Dank. Ich kann hören, daß etwas auf die Festplatte geschrieben wird. Aber wohin? Mein aufgezeichneter Makro sieht so aus:
Sub save_test()

ActiveWorkbook.SaveAs FileName:= _
"D:\Eigene Dateien\Papa\OBJEKTE\WEIDENSTRAßE\BUCHUNGSBESTÄTIGUNGEN\JJJJ-MM-TT Buchungsbestätigung TEST.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Kann man da Deinen Vorschlag irgendwie einbauen?

Re: Makro zum Speichern

25.01.2003 23:00:36

Bernd Held

Hallo Hardy,

chDir "D:\Eigene Dateien\Papa\OBJEKTE\WEIDENSTRAßE\BUCHUNGSBESTÄTIGUNGEN\"
ActiveWorkbook.SaveAs FileName:= _
Format(ThisWorkbook.BuiltinDocumentProperties("creation date").Value, "YYYY-MM-DD") _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de