Koppeling naar ander bestand automatisch aanpassen

[Henk972]

Ik heb 2 bestanden:
1. Normen.xls
2. een bestand wat waarden ophaalt uit normen.xls

Normen.xls is een bestand waar per jaar normen in worden gezet op een tabblad. Ik heb een tabblad voor 2012, 2013, 2014 en straks 2015.

In het andere bestand (klant A 2013.xls) heb ik een formule om een waarde op te halen uit Normen.xls:

='C:\Koppelingen\[Normen.xls]2013'!$C$33

Hoe kan ik ervoor zorgen dat als ik het bestand van Klant A 2014 maak, de formule met verwijzing naar normen.xls ook wordt aangepast naar tabblad 2014? Ik heb wel een cel waar het jaartal in wordt genoemd, maar het lukt me niet dat in te passen in de formule voor de verwijzing.

 

[jkpieterse]

Bijvoorbeeld (jaartal staat in cel met de naam Jaar):

=INDIRECT("='C:\Koppelingen\[Normen.xls]"&Jaar&"'!$C$33")

 

[Henk972]

Dat resulteert in een #VERW!

 

[VenA]

Het bestand moet geopend zijn en de = achter Indirect moet weg.

 

[jkpieterse]

Ach ja, ik vergat dat het bestand dan inderdaad open moet staan.

 

[Henk972]

Top! Dat werkt.

Heel erg veel dank.

Kan ik ook het normen bestand (mee) laten openen als ik een bestand wat naar normen.xls verwijst open?

 

[jkpieterse]

Zet dit in de ThisWorkbook module:

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

 

[Henk972]

Wow! Supersnel antwoord. Dank.

Nu ben ik klaar.