ich möchte eine Variable aus einem Makro in eine WENN-Funktion als DANN-Wert übergeben.
Ein Makro überprüft, ob eine SLAVE-Arbeitsmappe vorhanden ist (das funktioniert). Falls ja soll aus dieser SLAVE-Arbeitsmappe der Wert im Feld $F$35 in meine aktive MASTER-Arbeitsmappe als Verknüpfung übernommen werden.
Function Existiert_Datei(DateiName As String) As Boolean
Dim dName As String
Dim dPfad As String
Dim dInhalt As String
dPfad = ActiveWorkbook.Path
dName = (dPfad & "\" & DateiName & ".xls")
dInhalt = ("'" & dPfad & "\" & "[" & DateiName & ".xls" & "]Timesheet'!$F$35")
On Error Resume Next
Existiert_Datei = CBool(GetAttr(dName) Or vbNormal _
Or vbHidden Or vbSystem Or vbArchive Or vbDirectory)
End Function
Aufruf in Tabelle:
=WENN(Existiert_Datei(LINKS($A$2;3)&LINKS($B$2;3)&LINKS(C$1;4)); ??? ;"Nein")
Der Namen der SLAVE-Arbeitsmappe setzt sich aus 3 Feldern zusammen.
Meine bisherigen Bemühungen endeten entweder im Programmabsturz, überschreiben der WENN-Funktion oder Übergabe von "dInhalt" als Text. Irgendwie fehlt mir die zündende Idee.
Es wäre schön, wenn Ihr mir aus der Patsche helfen könntet.
Gruß Jens