Bestand wordt vanuit de een wel, vanuit de ander niet geopend

[Henk972]

Vorige week heb ik een vraag geplaatst over het openen van een Excel bestand samen met een ander bestand. Dat lukte, maar ik heb nu nog een bestand waar ik dat wil doen, maar daar werkt het opeens niet meer.

De vraag van vorige week staat hier: http://www.helpmij.nl/forum/showthr...ren-en-andere-activeren?p=5626865#post5626865

Het bestand dat geopend moet worden (normen.xls) wordt wel geopend als ik Materiële vaste activa open.

Als ik Voorraden open, wordt normen.xls niet geopend, maar krijg ik de foutmelding:

Fout 13 tijdens uitvoering:
Typen komen niet met elkaar overeen.

Iemand die weet hoe ik dit oplos?

 

[Emil S]

als je een cel in voorraden.xlsm koppelt met normen.xls dan gaat dat misschien wel lukken.
de VBA code zoekt naar koppelingen, en die moeten dan wel bestaan

(niet getest)
emil

 

[Henk972]

Er bestaand wel koppelingen, anders zou ik het niet op die manier doen.

 

[Emil S]

er zijn geen gekoppelde cellen!

probeer deze code:

Private Sub Workbook_Open()
    Dim vLinks As Variant
    Dim lLink As Long
    vLinks = ThisWorkbook.LinkSources(xlExcelLinks)
    If IsEmpty(vLinks) Then
        MsgBox "geen links", vbCritical
        Exit Sub
    End If
    For lLink = LBound(vLinks) To UBound(vLinks)
        If LCase(vLinks(lLink)) Like "*normen.xls" Then
            Workbooks.Open vLinks(lLink)
            ThisWorkbook.Activate
        End If
    Next
End Sub

 

[Henk972]

In H41 staat toch een koppeling?

=ALS($P$24=1;INDIRECT("'[Normen.xls]"&JAAR&"'!$C$26";WAAR);INDIRECT("'[Normen.xls]"&JAAR&"'!$D$26";WAAR))

 

[Emil S]

met de functie INDIRECT maak je geen koppeling met een bestand.

 

[Henk972]

Hoe maak ik dan een koppeling met de cellen in Normen, die verwijzen naar het tabblad %JAAR%?

 

[Emil S]

maak dan een koppeling, door één cel direct te verbinden aan normjaar.xls

formule:
='[Normen.xls]JAAR'!$C$26
bijvoorbeeld.