Herbers Excel-Forum - das Archiv
speicher makro
- speicher makro von alex vom 21.03.2005 08:53:43
- AW: speicher makro - von marcl am 21.03.2005 09:05:03
- Vielen Dank klappt super. ot. - von alex am 21.03.2005 09:29:03
- Vielen Dank klappt super. ot. - von alex am 21.03.2005 09:29:03
- AW: speicher makro - von ChrisSp am 21.03.2005 09:06:40
- AW: speicher makro - von serge am 21.03.2005 09:14:52
 |
Betrifft: speicher makro
von: alex
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 SubGruß 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
| |