Indiv. koppeling bijwerken

[Koos66]

Ik heb een doelbestand waarin alleen meerdere koppelingen naar div andere bestanden (90x....) staan. Omdat het bijwerken v alle koppelingen te lang duurt (het betr. een netwerk), heb ik het autom bijwerken uitgeschakeld. Ik wil nu dmv een eenvoudige macro die afhankelijk is van een celwaarde, alle koppelingen naar 1 bestand bijwerken. Daarvoor gebruik ik de volgende macro in blad1:

Sub Macro9()
'
' Macro9 Macro
'
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = "code" Then
ActiveWorkbook.UpdateLink Name:="C:\kanweg\Projectreminder_2012\" & ActiveCell.Offset(1, 0) & "\[Projectplan_" & ActiveCell.Offset(1, 0) & ".xlsm]Projectplan!a6", Type:=xlExcelLinks
End If

End Sub

Het rare is dat de macro goed werkt in een proefbestandje maar niet in het eigenlijke bestand. Iemand een idee waarom of moet ik een bestandje meeposten (2 dus...)?

 

[Warme bakkertje]

Sub Macro9()
'
' Macro9 Macro
'

Wat doet dit erbij ??
BeforeDoubleClick is een event-macro dus hoort in een bladmodule en niet in een standaardmodule.
Ik zou ook Cancel=True in de macro zetten zodat je niet in de actieve cel blijft steken.

 

[Koos66]

Als macro-beginner had ik de macro samengesteld uit div. tips. Vandaar. Als ik het goed begrijp moet ik deze macro plaatsen in blad1 (en dus niet in ThisWorkbook of Module1)?

Ik heb de macro enigzins bijgewerkt (oa sub/endsub weggelaten) zodat de bedoeling wellicht duidelijk is:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = "code" Then
ActiveWorkbook.UpdateLink Name:="C:\kanweg\Projectreminder_2012\" & ActiveCell.Offset(1, 0) & "\[Projectplan_" & ActiveCell.Offset(1, 0) & ".xlsm]Projectplan!a6", Type:=xlExcelLinks
MsgBox "Dit project is bijgewerkt"
Else MsgBox "Dit project is niet bijgewerkt"
End If
Cancel=True

Zit ik zo op het goede spoor??
(Excuus voor de late reaktie: in de regio was er een stroomstoring.. )

 

[Koos66]

helaas geen reakties dus maar dicht