Aktueller Pfad ermitteln

Question

Hallo,

ich benötige ein Makro mit folgender Funktion:

Datei 1 = Auswertung
Datei 2 = Daten

Die zwei Dateien befinden sich in einem gemeinsamen Ordner.
Nach dem öffnen der Datei 1 soll eine Formel in Zelle A1 eingetragen werden.
A1 = Wert aus "Daten" Zelle A1

Da der Ordner immer wieder in andere Verzeichnisse verschoben wird, habe ich das Problem, das die zweite Datei nicht gefunden wird. Daher ein Makro, das mir immer den aktuellen Pfad zur Quelle ändert.

Danke

Camillo

Answer 1

Hallo Camillo,
mit einem Makro so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strPfad As String, strDatei As String, strTabelle As String, strZelle As String
strPfad = Application.ActiveWorkbook.Path + "\" ' Aktuelle Datei Pfad
strDatei = "Daten.xls" ' Name der Datei
strTabelle = "Tabelle1" 'Name der Tabelle
strZelle = "R1C1" ' R = Row, C = Column (im Beispiel Zelle A1)
Range("A1") = Application.ExecuteExcel4Macro("'" & strPfad & "[" & strDatei & "]" & strTabelle & "'!" & strZelle)
End Sub

Gruß
fedjo

Answer 2

Hallo fedjo,

ich kann nur sagen "Perfekt". Danke

Ciao Camillo