externe Verknüpfungen, Zellen markieren, VBA

Im Menü DATEN - VERBINDUNGEN - VERKNÜPFUNGEN BEARBEITEN kann man sehen,
ob und wenn ja zu welchen Dateien eine Excel-Arbeitsmappe verknüpft ist.
Was das Menü leider nicht zeigt, sind die Zellen, in denen diese Verknüpfungen stehen.

Diese Lücke kann man mit folgender VBA Funktion schließen:


--- BEGINN Code Schnipsel ---

Public Sub ExterneVerknuepfungen()

    On Error Resume Next
 
    Dim intFarbcode As Long ' RGB-Code der Farbe
    Dim shtBlatt As Worksheet ' Blatt
    Dim rngZelle As Range     ' Zelle
    Dim intZähler As Integer
 
    intFarbcode = 49407 ' leichtes Orange
    intZähler = 0
 
    For Each shtBlatt In ActiveWorkbook.Sheets
        shtBlatt.Select
        For Each rngZelle In shtBlatt.UsedRange
            rngZelle.Select
            If InStr(rngZelle.Formula, ".xls") > 0 Then
                rngZelle.Interior.Color = intFarbcode
                intZähler = intZähler + 1
            End If
        Next rngZelle
    Next shtBlatt
     
    On Error GoTo 0
 
 
    If intZähler > 0 Then
        MsgBox intZähler & " verknüpfte Zellen markiert."
    Else
        MsgBox "Keine extern verknüpften Zellen gefunden."
    End If
 
 
End Sub

--- ENDE Code Schnipsel ---



Verknüpfungen in neuem Arbeitsblatt auflisten:

--- BEGINN Code Schnipsel ---

Public Sub VerknuepfungenAuflisten()
   Dim alinks As Variant
   Dim i As Long
   
     alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
   
     If Not IsEmpty(alinks) Then
         ActiveWorkbook.Sheets.Add
         Cells(1, 1) = "Verknüpfungen in dieser Arbeitsmappe"
         For i = 1 To UBound(alinks)
             Cells(i + 1, 1) = alinks(i)
         Next i
     Else
         MsgBox "Diese Arbeitsmappe enthält keine Verknüpfungen!"
     End If
End Sub

--- ENDE Code Schnipsel --

siehe auch Verknüpfungen, absoluter, relativer Pfad