Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

OpenLinks

Forumthread: OpenLinks

OpenLinks
09.01.2003 15:01:30
Alfons Riek
Bei folgendem Programmcode bekomme ich einen Laufzeitfehler:
Der erste Durchlauf und das dazugehörige Öffnen funkioniert, aber beim zweiten Durchlauf kommt der Fehler.
Wer weiß Rat?

Private Sub AlleLinksÖffnen_Click()

Dim arLinks As Variant
Dim intIndex As Integer
arLinks = ActiveWorkbook.LinkSources(xlExcelLinks)

If Not IsEmpty(arLinks) Then
For intIndex = LBound(arLinks) To UBound(arLinks)
ActiveWorkbook.OpenLinks arLinks(intIndex)
Next intIndex
Else
MsgBox "The active workbook contains no external links."
End If

End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: OpenLinks
12.01.2003 11:15:08
Bernd Held
Hallo Alfons,

der folgende Code funktioniert bei mir.

Sub VerknüpfungenÖffnen()
Dim Links
Dim i as integer

Links = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
Workbooks.Open Links(i)
Next i
Else
End If
End Sub


Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-VBA-Bücher, neue FAQs und Makros unter: http://held-office.de

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige