Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1368to1372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Feststellen ob Verknüpfungen vorhanden sind

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 mal
VG
Steffen Schmerler

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Feststellen ob Verknüpfungen vorhanden sind
07.07.2014 22:12:48
Daniel
HI
verwende als Test:
if Not IsEmpty(alink) Then

oder
if VarType(alink) = 0 Then

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige