Sheet kopieren in neue Mappe und Save per Makro?
17.08.2004 19:36:47
Andreas
ich habe folgenden funktionierenden VBA Code
Sub CopyundSave()
Sheets(Array("Ergebnisse", "Diagramm")).Select
Sheets(Array("Ergebnisse", "Diagramm")).Copy
ChDir "C:\Dokumente und Einstellungen\Administrator\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\Administrator\Desktop\Test.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
Leider speichert er nun die neue Datei immer unter dem Namen TEST.xls.
Richtig wäre aber wenn es die Möglichkeit gibt den Dateinamen automatisch aus dem Alten Dateinamen also der Quelledatei für den Copybefehl und wo auch der VBA Code drin steht und einem simplen "-" zusammen zusetzen.
Beispiel:
Versuch1.xls soll nach ablauf die beiden Sheet Ergebnisse und Diagramm haben und unter dem Namen -Versuch1.xls gespeichert sein.
Wenn jemand eine Lösung kennt wäre ich Ihm sehr dankbar, denn ich komme nicht mehr weiter :(
VG
Andreas