Listing der durch Sverweise benannten Tabellen

Guten Morgen Allerseits
Um für eine vorhandene Exceldateie Unterlagen zu erstellen bräuchte ich ein Listing aller von ihr angesprochenen Dateien.
z.B. sind die Zellen A6 und B5 wiefolgt belegt:
A6: SVERWEIS(A4;'O:\Ursprung\[Compound.xls]Tabelle2'!$A$2:$E$16;2;FALSCH)
B5: WENN(SVERWEIS(B4;'R:\1_Intern\Ursprung\[Mäander.xls]Tabelle1'!$A$2:$E$16;2;FALSCH)=4;
B4+4;SVERWEIS(B3;'R:\1_Intern\Ursprung\[Durchmesser.xls]Tabelle1'!$A$2:$E$16;2;FALSCH)
Aus dem zu durchforstenden Tabellenblatt sollen alle Zellen untersucht, und die Tabellen ausgelesen werden.
Dabei können pro Zelle mehrere Sverweise vorkommen!
Endziel sollte eine Liste sein mit allen Tabellen.
LISTING
Compound.xls
Mäander.xls
Durchmesser.xls
Hat mir jemand einen Tip? oder gibts da was fertiges?
Vielen Dank für Eure Mithilfe
Gruss urs

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub LinkList() Dim var As Variant Dim icounter As Integer Dim sammlung var = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(var) Then For icounter = 1 To UBound(var) Cells(icounter, 1) = var(icounter) sammlung = sammlung + var(icounter) & vbCr Next icounter Else Beep End If End Sub

Sub LinkList() Dim var As Variant Dim icounter As Integer Dim sammlung Workbooks.Open Filename:="C:\Test\Test.xls" var = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(var) Then For icounter = 1 To UBound(var) Cells(icounter, 1) = var(icounter) sammlung = sammlung + var(icounter) & vbCr Next icounter Else Beep End If End Sub

Hallo Marc
ich habe es ausprobiert und erhalte immer Fehlermeldungen. Also back to the roots.
Habe Deinen ursprünglichen Code in die Tabelle "Listing" gehängt und wenn ich ein Dateilisting brauche
(Die zu analisierende Datei ist dann offen), öffne ich die Listing Datei und aus der zu analisierenden Datei
starte ich das Macro. Das Resultat erscheint auf der Listing Datei.
So und nun habe ich das Resultat nachträglich mit der untersuchten Datei
titulieren wollen.
Aber das klappt nicht Meldung: Objekt erforderlich


Sub LinkList()
Dim var As Variant
Dim xy As Variant
Dim icounter As Integer
Dim sammlung
xy = ActiveWorkbook.Name
var = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(var) Then
For icounter = 1 To UBound(var)
Cells(icounter, 1) = var(icounter)
sammlung = sammlung + var(icounter) & vbCr
Next icounter
Else
Beep
End If
ActiveWorkbook = "Verweis_Listing.xls"
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Value = xy
End Sub

Was mache ich falsch?
Vielen Dank und guten Appetit !
Gruss urs

Beliebteste Forumthreads (12 Monate)

Listing der durch Sverweise benannten Tabellen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread