Verknüpfungen auf aktuelles Blatt beziehen
13.02.2016 19:43:28
Mel
ich möchte gerne Daten aus einem Arbeitsblatt kopieren. Diese Daten sollen dann aber nicht länger mit dem alten Arbeitsblatt verknüpft sein. Alle Verknüpfungen sollen sich auf das aktuelle Arbeitsblatt beziehen. Manuell ist das Einstellen zwar leicht, aber auch mühsam. Gibt es einen VBA Code?
Im Internet habe ich folgendes gefunden:
Sub link()
Dim i As Integer
Dim x As Variant
x = ThisWorkbook.LinkSources(xlLinkTypeExcelLinks)
For i = 1 To UBound(x)
Debug.Print x(i)
Next i
End Sub
Also alle Verknüpfung zu ihrem alten Arbeitsblatt verlieren und mit dem neuen Arbeitsblatt verknüpft werden.
Ich hoffe, Ihr versteht mein Problem.
Beste Grüße
Anzeige