Hallo zusammen,

ich will aus einer geschlossenen Datei per VBA Daten in eine geöffnete Datei kopieren:

So sieht mein Quellecode aus. Jedoch bekomme ich eine Fehlermeldung und zwar "Laufzeitfehler: 13, Typen unverträglich".

Option Explicit
Private Function FktHoleWert(Pfad, Dateiname, Tabelle, Bezug)
Dim Ausgabe As String

If Right(Pfad, 1) <> "\" Then Pfad = Pfad & "\"
If Dir(Pfad & Dateiname) = "" Then
FktHoleWert = "Datei nicht gefunden"
Exit Function
End If

Ausgabe = "'" & Pfad & "[" & Dateiname & "]" & Tabelle & "'!" & Range(Bezug).Address(, , xlR1C1)

-->Ausgabe liefert das folgende Ergebnis: 'C:\Users\....\Desktop\[Test.xlsx]Tabelle14'!R1C1

FktHoleWert = ExecuteExcel4Macro(Ausgabe)

-->FktHoleWert liefert als Ergebnis: "Fehler 2023"
End Function

Sub Zieldatei()

Dim Pfad As String
Dim Dateiname As String
Dim Tabelle As String
Dim Bezug As String
Dim Tab7 As Worksheet
Dim Ausgabe As String

Set Tab7 = Tabelle7-->ist die Ziel -Tabelle

Pfad = "C:\Users\.....\Desktop"
Dateiname = "Test.xlsx"
Tabelle = "Tabelle14"
Bezug = "A1"

Ausgabe = FktHoleWert(Pfad, Dateiname, Tabelle, Bezug)

Tab7.Range("A1").Value = Ausgabe

End Sub
 

Starre seit Stunden drauf und sehe den Fehler nicht :-(

P.s: Ich nutze Excel 2010

Gruß

Timm