Office: (Office 2010) Tabellenblatt bei kopie als Mappe neu benennen

Hallo mal wieder,

ich habe eine Arbeitsmappe mit drei Tabellenblättern.
Ein Tabellenblatt kann man nun mit einem Button als neue Arbeitsmappe mit dem Namen "MAPPE X" kopieren.

Wie mache ich es, dass die neue Mappe nicht "MAPPE X" heißt, sondern "Kopie von -Tabellenblattname-<tabellenblattname><tabellenblattname>" wobei -Tabellenblattname- <tabellenblattname><tabellenblattname>nicht ermittelt werden muss.

Gruß
Lincoln
Berlin</tabellenblattname></tabellenblattname></tabellenblattname></tabellenblattname>

 

Hallo lincoln

ergänze den Kopiervorgang am Ende mit

Code:

Sheets("MAPPE X").Name = "Kopie von ... "

Gruß
JG.

 

Danke für die Antwort.
Jedoch wird nur das Tabellenblatt anders benannt. Nicht die Datei.
Irgendwie müsste es...

Workbook ("xx").Name = "yy"

heißen. Aber dann führt er mir das Makro nicht aus.

 

Hallo Lincoln,

scheinbar habe ich Dich falsch verstanden. Ersetze die Sheets-Anweiseung durch

Code:

    ActiveWorkbook.SaveAs Filename:= _
        "C:\Dokumente\Eigene Dateien\test.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False

dann wird die Datei gespeichert. Angepasst werden muß aber jedoch der Pfad und der Dateiname. Bei einer festen Kodierung des Dateinamens (hier test.xlsx) wird bei erneutem ausführen des Codes die vorhandene Datei überschrieben.

Code:

ActiveWorkbook.SaveAs

alleine bewirkt daß die Datei direkt als Mappe gespeichert wird.
Beim Kopieren des Tabellenblattes in eine neue Datei wird diese meist mit "Mappe" und einer danach folgenden fortlaufenden Zahl angezeigt. Diese Datei ist noch nicht gespeichert. Daher speichert dieser Befehl die Datei im Standardordner direkt mit dem Namen z.B. Mappe2 direkt ohne nachfragen.
Um einen eigenen Dateinamen zu vergeben bleiben Dir zumindest zwei Möglichkeiten.
a) Die neu erstellte Datei schließen und dann über den Speicherdialog den Pfad und den Dateinamen zu bestimmen.
b) Den Mappennamen incl. Speicherpfad der VBA-Anweisung zu übergeben und zu speichern. (siehe hierzu den ersten Codeschnipsel).
Eine weitere wäre, daß der künftige Dateiname aus dem Tabellenblatt ermittelt wird und als Variable an den Speicherpfad angehängt wird (....ungeprüft....)

Code:

ActiveWorkbook.SaveAs Filename:="C:\Dokumente\Eigene Dateien\" & Dateiname & ".xlsx"

Ich hoffe es hilft etwas weiter.

Gruß
JG