habe ein problem beider Namensvergabe beim speichern einer kopie, mit folgendem code klappt es jedenfalls nicht
Sub copy1()
Sheets("DV_Zeit").Select
Sheets("DV_Zeit").copy
ActiveWorkbook.Sheets("DV_Zeit").Select
ActiveWorkbook.Sheets("DV_Zeit").Name = "PZB"
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ChDir "G:\USER\PDL\PZB"
ActiveWorkbook.SaveAs Filename:="G:\USER\PDL\PZB\PZB &
ActiveWorkbook.Sheets("DV_Zeit").cells(2, 2).value.xls", FileFormat:= _
xlNormal , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
End Sub
kann mir dabei jemand helfen?
gruß und dank