Wie kann ich einem Workbook einen Namen geben?

Question

Der Befehl

ActiveWorkbook.Name = "Export.xlsx"

ergibt einen Fehler.

Wie kann ich dem aktiven Workbook einen Namen geben?

Answer 1

Hi,

bei mir wird keine Fehler ausgegeben und die Mappe wird umbenannt

Sub Makro1()
    ActiveSheet.Name = "Export.xlsx"
End Sub

Wenn Du die Datei selbst speichern willst, dann so:

Sub Makro1()     
ChDir "C:\Users\a\Desktop"     ActiveWorkbook.SaveAs Filename:="C:\Users\wycic\Desktop\Mappe3.xlsm", _         FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
End Sub

VG

Thomas

Answer 2

ergibt einen Fehler.

Es wäre hilfreich gewesen, wenn Du die Fehlermeldung mit geschrieben hättest.

Für Arbeitsmappen (Workbook) gelten andere Namensregel als für Arbeitsblätter (WorkSheets), Punkte im Namen sind nicht zulässig.