Fjerne kæder

Er ikke helt 100 på hvad du vil, men der findes en option under Links der hedder Break links, som laver de hidtidige links om til values - kunne det være det?
Hilsen  Luffe

Næ - det tror jeg ikke det er .. ved anden gennemlæsning:
Hvis du har et sheet olddata.xls der har et link til oldstamdata.xls, så ville jeg, istedet for at kopiere til et nyt sheet, åbne begge disse sheet, tage en file - save as til newstamdata.xls og en file save as til newdata.xls. Så vil newdata.xls linke korrekt til newstamdata.xls. Først herefter vil jeg redigere i newdata.xls til mit nye projekt.
Var det en mulighed?
/ Luffe

Jeg er ikke sikkert på at jeg forstår din kommentar 13:33:06

Man kan sige:

1. Jeg har en Excel-fil (arbejdsfil.xls) som oprindeligt er en kopi af skabelon.xlt
2. Denne arbejdsfil.xls vil jeg fortsætte med at arbejde videre på
3. Men nu har jeg tilføjet et ark i skabelon.xlt som jeg skal bruge i arbejdsfil.xls
4. Jeg højreklikker på arket - vælger kopier til arbejdsfil.xls
5. Desværre bibeholder den referencen/kæden i toppen af dette ark til skabelon.xlt(stamdataark)
6.Den skal i stedet lave referencen til arbejdsfil.xls(stamdataark)

Men det skal foregå meget nemt så jeg/andre brugere egentlig ikke skal tænke over det. Helst automatisk.

Jeg tror jeg forstår nu. Hvis du kopierer både dit nye ark fra skabelon og dit stamdataark fra skabelon over samtidig, så linker den korrekt til arbejdsfil.xls. Men det er måske ikke muligt p.g.a. et ændret stamdata ark?

Ellers kan en find / replace bruges - find [skabelon] - replace with ingenting. Lidt det samme som rediger - kæder, men måske mere spiseligt for en bruger? Eller som input til en kode.

Ellers har jeg umiddelbart ikke nogen ideer.

/ Luffe

Du forstår mig ret nu :-)

Men umiddelbart kan stamdataarket ikke kopieres med over.

Det hele skulle gerne foregå i baggrunde via vba e.l. Brugeren skal faktisk helst ikke foretage sig noget andet end kopiere arket

Lige en ide til:
Hvis det er dig der styrer skabelon, kunne det så lade sig gøre at du linker det ny ark i skabelon til stamdata i arbejdsfil.xls istedet for? Så vil kopieringen fungere og beholde linket til arbejdsfil.xls.

VBA er jeg ikke kompetent nok til, men det må da kunne lade sig gøre uden de store krumspring.

/ Luffe

Det kan desværre ikke lade sig gøre sådan.

Mit eksempel var meget forsimplet. Der findes ca. 400 forskellige versioner af arbejdsfil.xls og de hedder alle noget forskelligt.

Så jeg styrer hvad der ligger i skabelonen men ikke hvor det ender henne.

Her er en kode til lidt af det, jeg skal lige ud og køre, når jeg kommer  tilbage skal jeg prøve finde ud af hvordan vi får koden til at køre automatisk

Public Sub FindLink()

alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(alinks) Then
    For i = 1 To UBound(alinks)
        ActiveWorkbook.ChangeLink alinks(i), ActiveWorkbook.Name, xlExcelLinks
       
    Next i
End If

End Sub

Prøv om dette virker?

Det har den ulempe at det skal ligge i arbejdes filen, under thisworkbook



Private Sub Workbook_Activate()
Call ChangesLink
End Sub

Public Sub ChangesLink()

alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(alinks) Then
    For i = 1 To UBound(alinks)
        ActiveWorkbook.ChangeLink alinks(i), ActiveWorkbook.Name, xlExcelLinks
    Next i
End If

End Sub

Der er måske også denne mulighed

download Findlink.xla fra http://www.bmsltd.co.uk/MVP/MVPPage.asp
Installer den.
Når den er installeret finder du et ekstra menupunkt under funktioner (find link)
Kør den og fjern alle links.

Hej jlemming

Jeg har ikke testet din makro i kommentar 08:31:17 men kan man lave den i arbejdsfilen således at når man har kopieret et ark derover så aktiveres denne makro ved en handling. Worksheet_activate eller lignende ?

Kommentar 08:37:09. Den har jeg brugt, men den er jo også meget manuel og betyder at brugeen selv skal gøre noget.

Den virker perfekt som "almindelig makro"

Spørgsmålet er bare hvordan jeg nemmest får aktiveret den når jeg har kopieret et ark fra kildeskabelonen til arbejdsfilen.

Nu har jeg gjort sådan i hvert ark i kildeskabelonen:

Private Sub Worksheet_Activate()
alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(alinks) Then
    For i = 1 To UBound(alinks)
        ActiveWorkbook.ChangeLink alinks(i), ActiveWorkbook.Name, xlExcelLinks
    Next i
End If
End Sub

Så fjerner den automatisk referencen når man har kopieret den til arbejdsfilen.

Kan i se nogle problemer jeg kan løbe ind i. umiddelbart ser det ud til at virke perfekt

hmmm, jeg ved ikke lige hvad der sker, når du så på et tidspunkt har flere ark med den samme kode ??

Der sker jo ikke andet end at hver gang jeg aktiverer et ark med koden så fjerner den "bare" kæden.

Ok, så tillader jeg mig at smide et svar

Du fortjener selvfølgelig også point.

Tak for hjælpen

Også til luffeladefoged

Nu driller det alligevel.

Kildearkene kopieres fint til den nye destinationsark og kæderne afbrydes.

Men nogle gange når man så åbner destinationsarket efterfølgende så tænker arket i meget lang tid. De kæder der blev afbrudt står der "0" ved imens.

Men efter 2 minutter virker arket igen.

Hvorfor nu det ?