Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1648to1652
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
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Verknüpfungen zu externen Dateien inkl. Ordner

VBA Verknüpfungen zu externen Dateien inkl. Ordner
09.10.2018 15:08:40
Maxx70
Hallo zusammen,
seit langer Zeit bin ich mal wieder intensiver in VBA für Excel unterwegs (daher würde ich meine aktuellen VBA Kenntnisse auf maximal "bescheiden" zurückstufen...) und hadere gerade mit folgendem Problem:
In einer komplexen Ordnerstruktur (inkl. Unterordnern) sollen diverse Dateien aufgebaut werden, die u.a. zahlreiche externe Verknüpfungen (innerhalb von Funktionen etc.) zu den anderen Dateien in der Ordnerstruktur enthalten.
Die Ordnerstruktur soll auf der obersten Ebene umkopiert werden und die Verknüpfungen automatisch (per VBA) auf den neuen Speicherplatz umgeschossen werden können.
Mit dem Loop zur Identifizierung der relevanten Dateien komme ich schon noch halbwegs zurecht, jedoch bringt mich das Umschiessen der Verknüpfungen derzeit an den Rande des Wahnsinns...
ChangeLink
So wie ich das verstehe, muss hier die komplette Adresse inkl. Dateiname herhalten, oder?
Bei insgesamt ca. 100 Dateien also nicht unbedingt die richtige Lösung, oder kann man das sinnvoll "zusammenbasteln"?
Ich liebäugele da eher mit REPLACE... Nur wie binde ich das sauber in einen Loop ein?
Habt Ihr Tipps für mich? Das wäre toll! :)
Danke und Gruß,
Maxx70

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

Betreff
Datum
Anwender
Anzeige
AW: Beispiel
09.10.2018 15:44:45
Fennek
Hallo,
die Angeben reichen mir nicht für einen spezifischen Code, deshalb nur ein Muster aus dem Archiv:

Sub BezuegeAnpassen()
Dim arrLinks As Variant, strLinkNeu As String, i As Integer
arrLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(arrLinks) Then
For i = 1 To UBound(arrLinks)
strLinkNeu = ActiveWorkbook.Path & Mid(arrLinks(i), InStrRev(arrLinks(i), "\"))
ActiveWorkbook.ChangeLink Name:=arrLinks(i), NewName:=strLinkNeu, Type:=xlExcelLinks
Next i
End If
End Sub
So etwas kanntest du bereits?
mfg
AW: Beispiel
09.10.2018 16:07:08
Maxx70
Hi Fennek,
danke für Deine blitzschnelle Antwort und Deinen Ansatz, den ich so noch nicht kannte! :)
Da werde ich mich mal druchgooglen und durchprobieren, muss nur gleich erstmal noch in einen Termin... Ich bin mir nur immer noch nicht sicher, ob ChangeLink hier generell so empfehlenswert ist? Irgendwas in meinem Hinterkopf schickt mich hier immer wieder eher zum Replace... Aber ausprobiert wird es auf jeden Fall gerne!
Danke schon mal, Feedback folgt... (y)
LG, Maxx
Anzeige
AW: Beispiel
09.10.2018 16:17:41
Daniel
Hi
nunja, generell müsste Replace genauso funktionieren.
Replace wäre dann im Vorteil, wenn sich nur die Übergeordnete Ordnerstruktur ändert und die Namen der Unterordner und Dateien gleich bleiben. Dann kämest du ggf mit einem Replace aus.
allerdings müsste dann dieses Replace auf jedem Tabellenblatt ausgeführt werden, da die Einstellung "Durchsuchen Blatt/Arbeitsmappe" nicht per VBA ändern kannst und du somit noch eine Schleife über die Blätter der Mappe brauchst.
(allerdings könntest du das Manuell einstellen, bevor du das makro startest und dir somit die Schleife über die Blätter sparen)
das ChangeLink gilt zwar automatisch für die ganze Arbeitsmappe, muss aber für jeden Link ausgeführt werden.
Gruß Daniel
Anzeige
AW: Beispiel
09.10.2018 16:32:02
Maxx70
Hallo Daniel,
es ist tatsächlich so, dass die Dateinamen selbst immer gleich bleiben (das habe ich bei der Anforderung direkt festgezurrt, damit es nicht noch komplizierter wird...)
Es wird die oberste Ebene der Orderstruktur kopiert (inkl. allem) und nur für diese ändern sich Speicherort und Name. Der Rest bleibt namentlich und innerhalb der kopierten Struktur absolut gleich. (y)
Guter Aufhänger: Das Loopen über die Tabellenblätter will bei mir noch nicht so recht... Alternativ hatte ich mir mal den manuellen Weg (bzw. Daten - Verknüpfungen bearbeiten) aufgezeichnet und dabei als Auswahl/Einschränkung "LookAt:=xlWhole" entdeckt... Vielleicht kann das ja helfen?
Und zum ChangeLink:
Ich glaube, ich bin da tatsächlich gar nicht über alle Links drüber geloopt, denn auch das war mir so noch nicht bewusst... (muss ich noch mal in Ruhe gucken) Aber viel habe ich mit dem ChangeLink ja auch nicht gemacht, da mir der Replace in den Sinn kam. (y)
Danke auf jeden Fall schon mal, ich melde mich wieder... :)
LG, Maxx
Anzeige
AW: Beispiel
09.10.2018 18:46:27
Daniel
Hi
die Manuelle Entsprechung zu Replace ist
Start - Bearbeiten - Suchen und Auswählen - Ersetzen.
der Haken bei "Gesamten Zellinhalt vergleichen" darf nicht gesetzt sein.
in VBA müsstest du das so programmieren:
dim sh as Worksheet
for each sh in ActiveWorkbook.Worksheets
sh.Cells.Replace "alter Teil des Pfades", "neuer Teil des Pfades", lookt:=xlpart
Next
wobei du für die Umstellung so vorgehen solltest:
1. alle Dateien ins neue Verzeichnis kopieren
2. Per Makro die Umstellung der Bezüge aufs neue Verzeichnis umstellen
3. die Dateien im alten Verzeichnis löschen.
das alte Verzeichnis sollte solange erhalten bleiben, bis alle Bezüge in den Dateien auf das neue Verzeichnis umgestellt wurden.
Ansonsten laufen die Bezüge beim Öffnen der noch nicht umgestellten Dateien beim Öffnen ins leere und das könnte Probleme geben.
Gruß Daniel
Anzeige
AW: Beispiel
10.10.2018 11:43:23
Maxx70
Hallo Daniel,
besten Dank für Deine Anregungen!
Tatsächlich habe ich mich, glaube ich, gestern vertan - ich denke, das "xlWhole", das ich gefunden hatte, stammte sogar aus dem Suchen und Ersetzen... ;) Habe das wohl auch falsch zugeordnet, da ich dachte, dass bezieht sich auf die Suche für die komplette Arbeitsmappe...
Zwischenzeitlich hatte ich übrigens die Gelegenheit, mich persönlich mit einem Excel/VBA Experten zu meinem Problem auszutauschen. Und dieser bestätigte meine Befürchtungen, dass mit dem kompletten Dateienkonstrukt die Verknüpfungen generell wohl überfordert sein werden... Mich hatte ja auch schon beunruhigt, dass das manuelle "Suchen und Ersetzen" in einer der Dateien in Gänze gar nicht durchlief, sondern auf unterschiedliche Suchbereiche gesplittet werden musste... Seufz
Na ja, er hatte noch den Tipp für mich, ggf. mit benannten Formeln zu arbeiten (das muss ich noch testen) oder sonst doch auf eine VBA Lösung zurückzugreifen...
Wenn Ihr mögt, halte ich Euch gerne auf dem Laufenden. (y) Ansonsten schon mal tausend Dank für Eure schnelle und kompetente Hilfe, bevor ich jetzt erstmal mein "Excel-Pferd" umsatteln muss... ;)
LG, Maxx
Anzeige

320 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
Anzeige
VBA Code vom anderen xls Datei ausführen
Urmila

Hallo,
besteht die Möglichkeit, ein VBA Code von anderen Datei aus zu starten?
Beispiel:
Datei 01.xls: hier steht der VBA Skript zum Speichern der Tabelle als Html.
Im Datei 02.xls ist ein Button und die Daten die als Html gespeichert werden sollen.
Wenn ich den Button drück...
27.11.2008 10:26:00
Thread-ID: 1028252
8 Beiträge
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Erzeugung einer bat Datei mittels VBA
Josef

Hallo!
Wie kann ich bitte mittels VBA eine bat Datei erzeugen und diese in einem gewünschten Ordner abspeiichern?
Danke
Josef
04.12.2008 06:51:22
Thread-ID: 1030010
5 Beiträge
im Verzeichnis aus allen Dateien Daten auslesen
walter

Hallo und guten Morgen,
ich habe u.a. Makro in der Anwendung, welches Daten aus allen Blättern EINER Datei im Blatt "Datenzusammenfassung" niederschreibt.
Jetzt würde ich ides gerne soweit verändern, daß alle Dateien ikn einem Verzeichnis (alle mit gleichem Aufbau) so ausgelesen werden...
08.01.2009 00:50:00
Thread-ID: 1037733
18 Beiträge
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
4
3
3
7
4
4
17
3
3
2
4
2
6
5
4
2
3
1
2
4
4
2
3