Hallo
Ich suche eine Möglichkeit mit einem VBA Makro beim Öffnen einer Arbeitsmappe alle mit ihr verbundenen Arbeitsmappen automatisch mit zu öffnen. Deren Zahl ist leider variabel, es muss also irgendwie abgefragt werden, welche Files gerade verbunden sind, und da laufe ich auf.
Kann mir jemand helfen?
Vielen Dank!
Heinz
PS: Da ich Indirect Funtkione verwende muss ich öffnen!
Schau dir mal das an: Link. Dürfte das sein, was du suchst.
Frage am Rande: Warum braucht Indirekt offene Dateien? Ich gehe mal davon aus, dass das getestet wurde. Kann es sein, dass die externen Dateien aktualisiert werden müssen?
fg
Dirk_P
Genau! Formeln mit Indirekt geben #REF aus, wenn die externe Datei auf welche sich die Formel bezieht nicht offen ist. ich jedenfalls kennen keinen Trick das zu verhindern.
Hallo Dirk
Zu Deinem Link: Ich möchte die Dinger ja öffnen, also muss ich zwischen Workbook.open und ActiveWorkbook.LinkSources (xlExcelLinks) irgendeine Verbindung herstellen und da bin ich mit meinem bescheidenen VBA Latein am Ende.
Heinz
Also die Liste der Verknüpfungen sollte klar sein (oder?)
Versuche mal das:
Sub VerknuepfungenOeffnen()
Dim NeuTabelle As Worksheet
Dim Liste As Variant
Dim i As Integer
Dim a As String
Liste = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(Liste) Then
For i = 1 To UBound(Liste)
Workbooks.Open (Liste(i))
Next i
Else
a = MsgBox("Keine Verknüpfungen gefunden!", vbOKOnly, "Hinweis")
End If
End Sub
fg
Dirk_P
Hallo Dirk
Ja so klappts, vielen Dank!