Verknüpfung entfernen

Hallo zusammen,
seit längerem verfolgt mich ein Verknüpfungsproblem, welches ich nicht lösen kann.
In meiner aktuellen Datei befindet sich eine Verknüpfung zu einer Datei, die es schon seit Jahren nicht mehr gibt. Da man ja gern auf bewährtes aufbaut, schleppt sich diese Verknüpfung immer irgendwie mit durch und macht sich von Zeit zu Zeit durch die Abfrage "Verknüpfung aktualisieren" beim Öffnen der Datei bemerkbar. Ich hasse Verknüpfungen zu anderen Dateien und will diese Meldung nicht......... (zumal diese ja auch unerwünscht ist).
Sämtliche Versuche durch "Quelle wechseln", "Quelle öffnen" scheitern mit dem Hinweis, diese Verknüpfung sei ungültig und die Suche per Makro nach Teilen des Textinhaltes dieser Verknüpfung bleiben ohne Erfolg.
Mir ist auch ein Rätsel, warum die "kaputte" Verknüpfung jetzt monatelang nicht zur Abfrage "Verknüpfung aktualisieren" führte; dann kann ich ja damit leben. Aber nun habe ich eine interne Tabelle gelöscht und nun kommt die Abfrage schon wieder und treibt mich zum Wahnsinn.
Verknüpfung: "K:\IKOBENTO\WINDOWS\Temporary InternetFiles\Content.IES\AHYZCREL\PK-NL-Mitte\win\Temp\Controllingmappe\FORTE_Übersicht_Risikoposten_OP.xls"
Da sieht man schon, dass es diesen Speicherort wahrscheinlich nie gegeben hat.
Wer kann mir helfen, diesen Schrott endlich loszuwerden?
Viele Grüße
Karl-Heinz aus Hessen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel,
versuch's doch mal mit diesem Code, den ich irgendwo, möglicherweise sogar hier im Forum gefunden habe:


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

Bei mir hat's geholfen. Hab ihn gerade nochmal ausprobiert, alles bestens.
Gruß
Bibo

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread