Makro - einzelnes RegisterBlatt neu speichern unter neuen Namen

Question

Hallo Coros,
Hallo auch alle anderen,

Hab heute wieder ein Problem wo ich nicht so ganz weiter komme.

Ich hab eine Datei "LICO", die mehrer Registerblätter hat , per Makro möchte ich eine bestimmtes Blatt "Kolli" in eine sep. Datei abspeichern, der Name stellt sich aus verschiedenen Infos zusammen, "KW_" + (Zelle I29) + "_NR_" + (Zelle D18) + "_" + (Zelle F7) + "_Kolli" .xls (Format).

Die Datei soll unter folgender Datei gespeichert werden \\Fileserver\alle\LICO\Neue\

Danke im voraus

Gruß Dutchi

Answer 1

Ich hab zwar einen Code (Infos sind etwas verkürzt) aus einem anderen Makro jedoch der speichert mir die ges. Datei mit allen Reg.Blättern.
Es soll aber nur das Blatt "Kolli" gespeichert werden.

ThisWorkbook.Sheet("Kolli").SaveAs "\\Fileserver\Alle\LICO\NEUE\" & "KW_"


Was muß ich verändern

Danke an alle

Answer 2

Hallo,

geht so wie du es möchtest nicht, könnte aber so funktionieren

Sheets("Kolli").Copy
ActiveWorkbook.SaveAs Filename:=""\\Fileserver\Alle\LICO\NEUE\" & "KW_" & I29 & "_NR_" & D18 & "_" & F7 & "_Kolli .xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

ist so ungetestet, da ich die Pfade nicht nachbauen kann

Gruß

Helmut

Answer 3

Danke Helmut,
Ich dein vorschlag auf meine Datei angepasst und ausprobiert,
Funktioniert super , ohne ruckeln,

Danke Gruß Wim