kopieren von 2 Sheets

Sheets("Bericht").Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial xlPasteValues
.Range("A1").Select
.Rows("1:1").Hidden = True
'.Rows("4:4").Hidden = True
.Range("B2").Font.Size = 14
.Rows("4:4").RowHeight = 10
'.Columns("D:E").Hidden = True
.Columns("C:C").ColumnWidth = 10.71
'.Range("G8:CE200").Font.Size = 11
.Columns("CD:CD").ColumnWidth = 7.86
Application.CutCopyMode = False
With .Parent
With .VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
.BreakLink Name:="xxx", Type:=xlExcelLinks
.SaveAs "xxx" & (Sheets("Bericht").Range("C3")) & "-" & (Sheets("Bericht").Range("E3")) & _
".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.Close
End With
End With