Supportnet / Forum / Tabellenkalkulation

Hallo Excel-Profis, bei der Speicherung einer Arbeitsmappe muss ich folgende Frage beantworten: "Diese Arbeitsmappe enthählt externe Daten. Sollen die Daten gelöscht werden, bevor die Vorlage gespeichert wird, und die Daten dann automatisch aktualisiert werden, sobald die Vorlage geöffnet wird?" Ich würde gerne die externen Daten finden und löschen, damit diese Abfrage nicht mehr erscheint. Über 'Bearbeiten' -> 'Verknüpfungen' komme ich nicht weiter, da dieser Pfad zwar existiert, aber 'Verknüpfungen' nicht ausgewählt werden kann. Welche Möglichkeiten gibt es noch, um externe Datenverknüfungen zu identifizieren? Danke im Voraus. Gruss Thomas

Hallo Thomas,

kann es eventuell sein, dass sich die Verknüpfung auf einen definierten Namen bzw. Namensbereich bezieht? Schau mal unter "Einfügen => Namen => Definieren..." nach, ob es dort definierte Bereiche gibt, in denen diese Verknüpfungen vorkommen.

Du kannst aber auch mal nachfolgendes Makro durchlaufen lassen. Das durchsucht alle Tabellenblätter nach externen Verknüpfungen. Wenn gefunden wird die Zelle markiert und Du erhältst eine Meldung.
Kopiere das Makro in ein StandardModul.

 Option Explicit

Sub Finden()
Dim rngZelle As Range
Dim iLastRow As Long
Dim iLastColumn As Integer
Dim iSheet As Integer

For iSheet = 1 To Worksheets.Count
    With Sheets(iSheet)
    .Activate
    iLastRow = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
    iLastColumn = .Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
    For Each rngZelle In .Range(Cells(1, 1), Cells(iLastRow, iLastColumn))
        If InStr(.Range(rngZelle.Address).Formula, "[") > 0 Then
            .Activate
            rngZelle.Select
            ActiveWindow.ScrollRow = Selection.Row
            ActiveWindow.ScrollColumn = Selection.Column
            MsgBox "In Tabellenblatt """ & .Name & """ in Zelle """ _
            & rngZelle.Address & """ wurde eine externe Verknüpfung gefunden. " _
            & "Die externe Verknüpfung lautet " & vbLf & vbLf _
            & .Range(rngZelle.Address).Formula, vbInformation, "Info..."
        End If
    Next
    End With
Next
End Sub [/code]

Ich hoffe, Du kommst klar.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungenund dort dann in der Anleitungsnummer 2nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
 ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.