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...