Übergabe von String an Funktion aus Tabellenblatt
23.10.2023 14:59:43
Stephan1212
ich ärgere mich schon seit einigen Stunden und hoffe ihr könnt mir helfen!
Ich habe eine relativ einfache Funktion in einem Modul geschrieben, welche einen Wert aus einer anderen Datei ausliest und zurückgibt.
Dafür will ich der Funktion den Ordnerpfad, Dateinamen, Tabsheet und Zelle übergeben:
Option Explicit
Function WertAuslesen(Ordnerpfad As String, Dateiname As String, Tabsheet As String, Zelle As String) As String
WertAuslesen = ExecuteExcel4Macro("'" & Ordnerpfad & "[" & Dateiname & "]" & Tabsheet & "'!" & Range(Zelle).Address(, , xlR1C1))
End Function
Folgender Sub im Modul funktioniert problemlos und liefert den gewünschten Wert zurück:
Sub TestWertAuslesen()
MsgBox WertAuslesen("C:\Users\XXX\OneDrive - XXX\Desktop\", "Mappe2.xlsx", "Tabelle1", "D5")
End Sub
Nun will ich die Funktion aus der Excel-Arbeitsmappe heraus aufrufen, bekomme aber leider imme die #WERT!-Fehlermeldung:
=WertAuslesen("C:\Users\XXX\OneDrive - XXX\Desktop\", "Mappe2.xlsx", "Tabelle1", "D5")
Habt ihr vielleicht eine Idee, woran das liegt? Ich denke, dass ich die Strings falsch an die Funktion übergebe...
Freue mich auf Eure Antworten und schon mal vielen Dank!!
