Klassiker:Verknüpfungen zu anderen Dateien löschen

Hallo zusammen,
ich habe jetzt einige Zeit in der Recherche verbracht und festgestellt, dass es zu meinem Anliegen zwar sehr viele Einträge, allerdings keine wirkliche Lösung gibt.
Es geht um das Löschen von Verknüpfungen zu anderen Dateien.
Zuerst frage ich mich, warum Excel die Möglichkeit bietet, Verknüpfungen zu anderen Dateien zu erstellen (Einfügen - Objekt - Von Datei erstellen - Verknüpfen), es jedoch in Excel anscheinend nicht möglich ist, diese wieder zu löschen.
Häufig wird hier die Datei "Findlink.xla" genannt. Ist das wirklich die einzige Möglichkeit? Gibt es nicht zumindest eine VBA Lösung, existierende Verknüpfungen zu anderen Dateien zu entfernen?
Über ThisWorkbook.LinkSources(xlExcelLinks) kann ich ja alle existierenden Verknüpfungen ansprechen.
Vielen Dank im Voraus!
imitis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo imitis,
mit diesem Makro werden alle externen Verknüpfungen gelöst,


Sub ExterneVerknüpfungenAuflösen()
'// Auflösung externer Verknüpfungen in Tabellenblättern
Dim Tab1 As Object
Dim Cell1 As Object
Dim AlleFormeln As Object
On Error GoTo Fehlerbehandlung
'// Schleife für alle Tabellenblätter der aktiven Mappe
For Each Tab1 In ActiveWorkbook.Worksheets
Set AlleFormeln = Tab1.Cells.SpecialCells(xlFormulas, 23)
'// Schleife für alle Zellen, die Formeln enthalten
'// Der Backslash ("\") in der Formel dient als Erkennungsmerkmal für
'// das Vorliegen einer externen Verknüpfung
For Each Cell1 In AlleFormeln
If InStr(Cell1.Formula, "\") > 0 Then
If Cell1.HasArray Then
'// Matrix kann nur als ganzes ersetzt weden
Cell1.CurrentArray.Select
Selection.Copy
Else
Cell1.Formula = Cell1.Value
End If
End If
Next Cell1
Next Tab1
Exit Sub
Fehlerbehandlung:
'// Fehler 1004 tritt auf, wenn Tabellenblatt keine Formeln enthält
If Err = 1004 Then Resume Next Else             '//MeldungsDlg Fehler(FehlerNr)
Resume Next
End Sub

Gruß hermann

Sub VerknuepfungenLoeschen() Dim AktuelleDatei As String Dim Mappe As Workbook Dim VLink As Variant Dim i As Integer AktuelleDatei = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name Set Mappe = ActiveWorkbook VLink = Mappe.LinkSources(xlExcelLinks) If Not IsEmpty(VLink) Then For i = 1 To UBound(VLink) ActiveWorkbook.ChangeLink Name:= _ VLink(i), newname:=AktuelleDatei, Type:=xlExcelLinks Next i End If End Sub

Beliebteste Forumthreads (12 Monate)

Klassiker:Verknüpfungen zu anderen Dateien löschen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Klassiker:Verknüpfungen zu anderen Dateien löschen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread