Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1712to1716
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1712to1716
1712to1716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verweis-Report für alle vorgegebenen XLSM-Files

Verweis-Report für alle vorgegebenen XLSM-Files
28.09.2019 10:58:28
Werner
Hallo Forum,
ich möchte gerne wissen, welche Verweise ich in welcher Excel-File gesetzt habe.
Im Forum habe ich folgenden Beitrag gefunden:
https://www.herber.de/forum/archiv/1156to1160/1158170_Bibliothek_fuer_VBProjectReferences.html
Was müßte ich an dem Code ändern, wenn ich als Eingabe eine Liste von z. B. 3 File-Namen habe, und diese Namen in einer Tabelle bereitgestellt sind?
Ich könnte mir vorstellen, diesem Tabellenblatt einen festen Namen ("Files") zuzuweisen. Ebenso wäre für den Report ein fester Name "(Report") auch nicht schlecht.
Celle(1,1) = Filename1
Celle(2,1) = Filename2
Celle(3,1) = Filename3
Die Filenamen (kompletter Name) stehen bereits zur Verfügung; sie werden an anderer Stelle ermittelt.
Natürlich müsste der Report um eine Spalte verschoben werden, und in Spalte 1 der Name der XLSM-File eingetragen werden. Das bekomme ich hin.
Mein Problem: wie komme ich an die Informationen in den anderen Files.
Gruß
Werner

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verweis-Report für alle vorgegebenen XLSM-Files
28.09.2019 11:40:11
Regina
Hi,
Du könntest doch eine Schleife über die Zellen mir den Filenames laufen lassen und mit Workbook.Open eine File nach dem anderen öffnen. Dann mit
Set oRefs = ActiveWorkbook.VBProject.References
die Verweise auslesen und dann das ActiveWorkbook wieder schließen.
So in der Art: 

dim lng_zeile as long
for lng_zeile = 1 to 3
Workbooks.open Cells(lng_zeile,1)
' ... hier der vorhandene Code
ActiveWorkbook.close
next
Gruß
Regina
:-)
28.09.2019 11:45:17
Oberschlumpf
Hi Regina :-)
ich las deinen Beitrag erts, nachdem ich hier aktualisiert hatte.
Ich hatte die gleiche Idee und hab gleich ne Bsp-Datei "geliefert" :-)
Ciao
Thorsten
Anzeige
AW: Verweis-Report für alle vorgegebenen XLSM-Files
28.09.2019 13:37:14
Werner
Hallo Regina,
vielen Dank für Deine Antwort. Ich habe mich für die Lösung von Thorsten entschieden.
Gruß
Werner
AW: Verweis-Report für alle vorgegebenen XLSM-Files
28.09.2019 11:42:59
Oberschlumpf
Hi Werner,
hier, versuch mal:
https://www.herber.de/bbs/user/132256.xlsm
Ich habe in Tabelle "Files" in den Zellen A1 bis A3 jeweils 3 vollständige Speicherpfade eingetragen (Pfad + Dateiname)
Nach Start des Makros standen in Tabelle "Report" untereinander die Referenzen; jewils getrennt mit der Überschriftenzeile zur jeweiligen Datei.
Hilfts?
Ciao
Thorsten
AW: Verweis-Report für alle vorgegebenen XLSM-Files
28.09.2019 13:35:27
Werner
Hallo Thorsten,
danke. Das war genau das, was ich gesucht habe. Ein Problem ist mir noch aufgefallen. Deshalb habe ich ganz am Anfang noch zusätzlich ein "Application.EnableEvents = False" und am Ende ein "Application.EnableEvents = True" eingefügt, damit Events in den geöffneten Mappen nicht ausgeführt werden.
Wieder einmal wurde mir in diesem Forum geholfen.
Gruß
Werner
Anzeige
jep...
28.09.2019 13:49:51
Oberschlumpf
Hi Werner,
...gut aufgepasst! :-)
Mir war das mit den startenden Makros in den geöffneten Dateien auch aufgefallen.
Ich habs dann nur leider nicht weiter "behandelt".
Freut mich aber, dass ich dir helfen konnte.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige