Feststellen ob Verknüpfungen vorhanden sind
07.07.2014 22:02:12
SteffenS
Hallo Zusammen,
ich möchte per Makro in einigen Arbeitsmappen die Verknüpfungen ändern.
Dabei kann es vorkommen, dass einzelne Mappen über keine Verknüpfungen.
Wie kann ich vor der Änderung prüfen, ob in der Mappe Verknüpfungen vorhanden sind.
Hier mein Code bis jetzt, der aber leider bei Mappen ohne Verknüpfungen einen Fehler verursacht:
Sub links_edit(WB AS Workbook)
Dim alink As Variant, apath As String, afile As String, i As Long
Application.DisplayAlerts = False
alink = WB.LinkSources(Type:=xlLinkTypeExcelLinks)
If alink(0) <> "" Then
For i = 1 To UBound(alink)
afile = GetFileName(CStr(alink(i)))
WB.ChangeLink Name:=alink(i), newName:=afile, Type:=xlLinkTypeExcelLinks
Next i
End If
End Sub
Danke Euch schon malVG
Steffen Schmerler