habe dies gefunden:
Public Sub ListExternalLinks1()
Dim avarLinks As Variant
Dim intCounter As Integer
Dim wksSheet As Worksheet
avarLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(avarLinks) Then
Set wksSheet = ActiveWorkbook.Worksheets.Add
With wksSheet
.Range("A1").Value = "Externe Verknüpfungen (Excel-Verknüpfungen)"
.Range("A1").Font.Bold = True
.Range("A3:B3").Value = Array("Nr.", "Quelle")
.Range("A3:B3").Font.Bold = True
For intCounter = 1 To UBound(avarLinks)
.Cells(intCounter + 3, 1).Value = intCounter 'Anzahl
.Cells(intCounter + 3, 2).Value = avarLinks(intCounter) 'Quelle
.Cells(intCounter + 3, 3).Value = avarLinks(intCounter).Address 'Wie ist die lokale _
Adresse ?
Next intCounter
End With
Else
MsgBox "Es sind keine Excel-Verknüpfungen vorhanden.", vbInformation
End If
wksSheet.Columns("B").AutoFit
Set wksSheet = Nothing
End Sub
Wie bekomme hier noch die Adresse in Form von "SheetName/Zeile/Spalte"? damit ich Sie manuell löschen kann? Mit VBA wäre natürlich besser.
Wer kann mir helfen? Bis Morgen!
Tschüss!
Franz D.