Verbinden von Datenfeldern unterschiedlicher Dateien automatisieren

Mit dieser Lösung hatte ich leider einen Fehler bekommen den ich mit meiner begrenzten VBA Kentniss nicht gelöst bekommen habe.

Da ich es mittlerweile mit der Excel internen Power Query gelöst bekommen habe werde ich es wohl damit weiter probieren.

Vielen Dank für deine Mühe!!

Davon hatte ich tatsächlich noch ncihts gehört, klingt eigentlich auch nach der saubersten Lösung.

Vielen Dank, werde ich mal ausprobieren!

Hallo,

wie lautet die Hyperlink-Adresse und in welcher Zelle befindet sie sich? Wo sollen die Formeln hin und wie sollen diese Formeln lauten?

Wenn du die Mappen nicht öffnen willst, musst du mit VBA die Formeln in eine Zelle oder einen Bereich schreiben.

Claus

Hallo,

probiere es mal so, um die Formel in Spalte B zu erhalten:

Sub Formel()

Dim strPfad As String, strFile As String

Dim strFormel As String

Dim LRow As Long

Dim rngC As Range
Const strRange = "Übersicht'!$D$5"
With ActiveSheet

    LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

    For Each rngC In .Range("A2:A" & LRow)

        With rngC.Hyperlinks(1)

            strPfad = Left(.Address, InStrRev(.Address, "\"))

            strFile = Replace(.Address, strPfad, "")

        End With

        strFormel = "'" & strPfad & "[" & strFile & "]" & strRange

        rngC.Offset(, 1).Formula = "=" & strFormel

    Next

End With

End Sub

Claus

Die Hyperlinks zu den Dateien stehen in der Spalte A2 bis ...

In den Spalten B bis L möchte ich die Verknüpfungen in die anderen Exceldateien herstellen. Dies habe ich jetzt mit dies hab ich im Moment so gelöst:

='C:\...speicherOrt\gemeinsamerOrdner\[Dateiname.xlsx]Übersicht'!$D$5

Meine Idee war, dass ich den Dateinamen aus der Spalte A auslesen lassen, sodass ich diese Formel einfach für alle weiteren, folgenden Dateien nur noch runterziehen muss.