Verknüpfung beim Speichern entfernen

[Animal2k]

Hallo zusammen
Ich habe ein Problem, ich hab ein Makro wo mir der aktuelle "sheet" gespeichert wird und alle Buttons entfernt werden.
In dieser Mappe ist auch ein Diagramm.
Mein Problem ist, ich möchte die Verknüpfung zu diesem Diagramm in der extra abgespeicherten mappe entfernen, so das ich wenn ich das neu gespeicherte öffne auch meine damals eingetragenen daten im Diagramm beibehalten werden.

Makro zu speichern lautet:
Sub Speichern()
'Extra abspeichern
ActiveSheet.Copy
Cells.Select
Selection.Copy
    ActiveSheet.Shapes.Range(Array("Button 2")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    Selection.Delete
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = False
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ActiveWorkbook.SaveAs "C:\Users\Animal2k\Desktop\Excel\Neu"
Application.DisplayAlerts = True
ActiveWorkbook.Close
MsgBox "Schwerpunktblatt wurde als neues Blatt abgespeichert"

End Sub


Ich hoffe ihr lönnt mir helfen :)

[Fennek]

Hallo,

im Archiv ganz weit unten habe ich diesen Code gefunden, um die Links zu ändern:

Code:

Sub linksource()

abc = ThisWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
Debug.Print UBound(abc), abc(1)
ThisWorkbook.ChangeLink Name:=abc(1), newname:="c:\temp\WB-Merge2.xlsx", Type:=xlLinkTypeExcelLinks
Debug.Print
End Sub

Da ich keine Datei "nachbauen" möchte, müßtest du die Umsetzung übernehmen.

mfg

[Animal2k]

Mir wäre nur wichtig das er mir diese Datei speichert und zwar ohne verknüpfung

[Fennek]

Hallo,

nachdem die link-Adresse ausgelesen wurde, kann man mit

Code:

activeworkbook.breaklink Name:=f(1), Type:=xllinktypeexcellinks

alle Links in Konstante wandeln.

mfg

[schauan]

Hallöchen,


mal noch als Zusatzinfo für das Umwandeln der Verknüpfungen in einem Diagramm. Im Prinzip geht das so:

With diagr
'Werte in Variable uebernehmen
vals = .SeriesCollection(1).Values
'Werte aus Variable in Diagramm zurueckschreiben
.SeriesCollection(1).Values = vals
...
End With

Wenn man noch Diagrammtitel usw. hat, muss man die natürlich auch noch ändern.
Bei den Werten ist übrigens etwas wenige möglich als mit Bereichen. Habe die Zahl aber gerade nicht im Hinterkopf und auf der Zunge liegt sie mir auch nicht