Herbers Excel-Forum - das Archiv

speicher makro

Bild

Betrifft: speicher makro
von: alex

Geschrieben am: 21.03.2005 08:53:43
Hallo Excelisten,
ich habe ein Makro aufgezeichnet mit dem ich 2 Arbeitsblätter kopiere in eine neue Arbeitsmappe und unter einem bestimmten pfad speichere. Jetzt möchte ich gerne das es unter einem bestimmten namen gespeichrt wird.
Ich habe in der zelle Y9 eine Auftragsnummer stehen diese hätte ich gerne als speichernamen + das aktuelle Datum.
Ist das möglich, hoffe ihr könnt mir helfen.
Hier das Makro
Sub speichern()
Sheets(Array("Blatt1", "Blatt2")).Select
Sheets("Blatt2").Activate
Sheets(Array("Blatt1", "Blatt2")).Copy
ActiveWorkbook.SaveAs Filename:="C:\Reiseanmeldung\Reiseantrag\Mappe1.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Gruß Alex
Bild

Betrifft: AW: speicher makro
von: marcl

Geschrieben am: 21.03.2005 09:05:03
Hallo Alex,
ActiveWorkbook.SaveAs Filename:="C:\Reiseanmeldung\Reiseantrag\" & Range("Y9") & " " & Date & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Gruß
marcl
Bild

Betrifft: Vielen Dank klappt super. ot.
von: alex
Geschrieben am: 21.03.2005 09:29:03
Vielen Dank Euch für Euren mühen, genau so wollte ich es haben.
Gruß Alex
Bild

Betrifft: AW: speicher makro
von: ChrisSp

Geschrieben am: 21.03.2005 09:06:40
Hi Alex,
ich würde die Auftragsnummer in eine Variable einlese:
z.B. ANummer = Range("Y6")
und dann musst du den *Filename* bei SaveAs aufsplitten
z.B. Filename:= "C:\Reiseanmeldung\Reiseantrag\" & " ANummer & "_" & Format(Now, "dd_mm_yy", vbMonday, vbUseSystem) & ".xls"
Hilft dir das?
Gruss
Chris
Bild

Betrifft: AW: speicher makro
von: serge

Geschrieben am: 21.03.2005 09:14:52
Hi Alex
Zelle mit dem Namen "auftragnr" z.B.: 123456
in einer Zelle mit dem Namen "speichername" die Formel
="Auftrag Nr."& auftragnr&" Datum"&TEXT(JETZT();" TT.MM.JJ.")~
Im makro
Application.Goto Reference:="speichername"
ActiveWorkbook.SaveAs FileName:="C\........" & ActiveCell.Value & ".xls"

Serge
 Bild
Excel-Beispiele zum Thema "speicher makro"
Zelleingaben speichern Die "personl"-Arbeitsmappe ausgeblendet speichern
Letztes Speicherdatum eintragen Formeln mit Zelladressen speichern
Bestätigung beim Speichern unterdrücken. Werte ohne Zwischenspeicher übertragen
Arbeitsmappe unter dem Text eines Zelleintrags speichern Einzelnes Tabellenblatt speichern
Mappe unter Zelldatum speichern Arbeitsmappe doppelt speichern