Wie kann ich einem Workbook einen Namen geben?

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

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.