Verknüpfung mit einer anderen Excel Datei, deren Name immer mit "Übersicht_" beginnt

[Steffl]

Hallo André,

beim Link zu den Excelformeln kommst Du aber auf eine Lösung, die Dir Ergebnisse für die Datei bringt, in der die Formel steht, und keine Übersicht für die Dateien eines Verzeichnisses.

wenn ich das richtig verstanden habe, sind in den jeweiligen Verzeichnissen eh nur 2 Dateien vorhanden. Die Datei zum Auslesen und die Übersicht, da wird eine Übersicht der Dateien nicht unbedingt benötigt. Aber generell würde ich hier eine VBA-Lösung vorziehen.

[schauan]

Hallo Stefen,

ja, der Meinung bin ich auch. Ich bin hier nur auf den Zug mit den Formeln aufgesprungen, weil laufend solche Vorschläge kamen ...

Die VBA-Lösung könnte so aussehen. Von der Dir-Variante aus dem verlinkten Beispiel bin ich aber abgegangen, weil Di("D:\Listen",vbDirectory) nicht das erwartete Ergebnis brachte. Daher hier mit dem FileSystemObject.

Private Sub KneipenTour()

'Variablendeklarationen 

'Object 

Dim oFSO As Object

Dim oFolder As Object

'String 

Dim sPath As String



'Pfad mit Kneipendaten festlegen 

sPath = "D:\Listen\"

'Filesystemobject setzen 

Set oFSO = CreateObject("Scripting.FileSystemObject")

'Pfad zuweisen 

Set oFolder = oFSO.GetFolder(sPath)

'mit dem aktiven Blatt (ggf. auch Sheets("gewuenschtesBlatt") 

With ActiveSheet

 'Schleife ueber alle Unterordner im Pfad 

 For Each oSubFolder In oFolder.subfolders

   'Zielmappe oeffnen 

   Workbooks.Open oSubFolder & "\Excel_Auslesen.xlsx"

   'Formel eintragen. 

   'Hinweis: Funktioniert, wenn im Pfad nur ein "_" enthalten ist. 

   'Anhand des "_" wird der variable Teil der Formel ermittelt. 

   Cells(1, 1).Formula = "='[Übersicht_" & Replace(Split(ActiveWorkbook.Path, "_")(1), "\", "") & ".xlsx]Tabelle1'!C5"

   'Zielmappe speichern 

   ActiveWorkbook.Save

   'Zielmappe schliessen 

   ActiveWorkbook.Close

 'Ende Schleife ueber alle Unterordner im Pfad 

 Next oSubFolder

'Ende mit dem aktiven Blatt (ggf. auch Sheets("gewuenschtesBlatt") 

End With

'Objekte zuruecksetzen 

Set oFSO = Nothing

Set oFolder = Nothing

End Sub

[ccolucci]

wenn ich das richtig verstanden habe, sind in den jeweiligen Verzeichnissen eh nur 2 Dateien vorhanden. Die Datei zum Auslesen und die Übersicht

@Steffi: Ja, du hast es richtig verstanden.  
Ich werde Eure Lösungsvorschläge ausprobieren. Großartig, dass so viele Forum-Mitglieder nach einer Lösung suchen!
@schauan: Du scheinst ein echter VBA-Profi zu sein. Echt top!!! Danke.

Code:

'Hinweis: Funktioniert, wenn im Pfad nur ein "_" enthalten ist.

Im Dateinamen ist mehr als nur ein "_" vorhanden. Ich teste...