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
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
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