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

Beiträge aus den Excel-Beispielen zum Thema "speicher makro"