wie kann ich per Makro mir alle Verknüpfung einer Mappe ausgegeben lassen?
Mir genügt dabei einfach die Ausgabe der Datei, wie es zum Beispiel unter Menü Bearbeiten - Verknüpfungen gemacht wird.
Danke Euch vielmals.
Steffen Schmerler
Sub Show_ext_Links()
Dim i As Long, msgStr As String
Dim extLinks
msgStr = ""
extLinks = ThisWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(extLinks) Then
For i = 1 To UBound(extLinks)
msgStr = msgStr & extLinks(i) & vbCrLf
Next i
MsgBox msgStr, vbInformation + vbOKOnly, "Externe Links in dieser Mappe"
End If
End Sub