Verknüpfungen löschen
cebo
folgendes Problem:
von der Excel Mappe1 möchte das Tabellenblatt "Bsp1", auf der alle Ergebnisse der Berechnungen der Mappe1 verlinkt sind, an den Ort "eigene dateien" kopieren.
Dann möchte ich die Verknüpfungen der Ergebniszellen von "Bsp1 Kopie" zu den Berechnungszellen in "Bsp1" löschen, ohne das die Ergebnisse in "Bsp1 Kopie"verschwinden.
Das Kopieren löse ich so:
Sub BSP1Speichern()
Worksheets("BSP1").Copy
Dim s As String
s = "\\Name\eigene Dateien\Bsp2" & Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mmyyyy")
ActiveSheet.SaveAs Filename:=s, FileFormat:=xlExcel8
ActiveWorkbook.Close Filename:=s
End Sub
Aber mit den Verknüpfungen komme ich nicht zurecht.
Hat da vielleicht einer ne Idee ?
Liebe Grüße
Cebo