Verknüpfung bei copy entfernen
27.05.2016 11:20:50
snewi133
ich kopiere mir ein komplettes Excel Blatt in eine andere Datei:
Sheets("Bericht").Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial xlPasteValues
.Range("A1").Select
Application.CutCopyMode = False
With .Parent
With .VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
.SaveAs "..." & (Sheets("Bericht").Range("C3")) & "-" & (Sheets("Bericht").Range("E3")) & _
".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
.Close
End With
Wie bekomme ich es hin diese Verknüpfung zu löschen oder gar nicht erst mit zu kopieren?
Gruß