Herbers Excel-Forum - das Archiv
speicher makro
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
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
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
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
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