Skjult kæde

Her findes et tilføjelsesprogram, som kan hjælpe dig af med dine kæder.

http://support.microsoft.com/support/kb/articles/Q188/4/49.ASP

eller

Prøv at finde linket med med POP 2000 fra John Walkenbach
http://j-walk.com/ss/pup/pup2000/features.htm
Auditing Tools > Workbook Link Finder.

Alternativt kan du forsøge dig med Bill\'s tool \"linkfinder\"
http://www.bmsltd.co.uk/MVP/Default.htm

En nem metode, som ofte kan hjælpe er at gå ind under FUNKTIONER -> INDSTILLINGER -> VIS og afkrydse \"FORMLER\". Derved kan du se alle formler og kæder i dit ark og udpege der, hvor det går galt.

Men nu er Excels fakturaprogram ikke det mest brugervenlige der findes, så måske er det svært at finde kæden.
Jeg har selv udviklet et brugervenligt fakturaprogram med både varekartotek og kundekartotek. Interesseret så opgiv mail-adresse eller send en mail til jan_vogt_hansen@hotmail.com.

Til flemmingdahl; Jeg har installeret pup2000, og kan også via link finderen se den kæde jeg søger, men hvordan finder jeg ud af hvor den befinder sig på arket? så vidt jeg kan se fortæller den kun adressen på den celle der linkes til.

Til janvogt; din metode virker desværre ikke i dette tilfælde. Jeg er dog meget interreseret i at se din faktura, jeg sender en mail.

Den kæde du ikke kan finde i dit regneark kan måske befinde sig i et navngivet område. Hvis du vælger <Indsæt><Navn><Definer> får du en oversigt over de navngivne områder i dit ark. Under \"Refererer til\" nederst i dialogboxen kan du se hvilket område det drejer sig om. Prøv at se på de områder du har om ikke der skulle være en reference til et andet ark her. Det tæller med som en kæde.

fobian; når jeg gør som du siger fortæller den mig at der er 3 navne i mappen, dlft2, dlft3 og dlft7. I referer til boksen står =\'C:\\Dokumenter\\[faktura.xls]Ark1\'!$E$23.
Det er adressen på den celle den forsøger at opdaterer kæde til. Jeg kan ikke se hvor hvor den befinder sig på det ark jeg befinder mig på.

Jeg har et par makroer liggende, som finder og fjerner alle eksterne kæder, men dog kun i formler. Som fobian skriver kan der godt ligge eksterne kæder skjult under navngivne områder.


Sub DeleteExternalFormulaReferences()
Dim ws As Worksheet, AWS As String, ConfirmReplace As Boolean, i As Integer, OK As Boolean
    If TypeName(ActiveWorkbook) = \"Nothing\" Then Exit Sub
    i = MsgBox(\"Do you want to confirm every replacement of external formula references with their value?\" & Chr(13) & Chr(13) & _
        \"YES : Confirm all replacements.\" & Chr(13) & _
        \"NO: Replace without confirmations.\" & Chr(13) & _
        \"CANCEL: Don\'t replace anything.\", vbQuestion + vbYesNoCancel, _
        \"Convert external formula references\")
    ConfirmReplace = False
    If i = vbCancel Then Exit Sub
    If i = vbYes Then ConfirmReplace = True
    AWS = ActiveSheet.Name
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        ws.Activate
        OK = DeleteLinksInAWS(ConfirmReplace)
        If Not OK Then Exit For
    Next ws
    Sheets(AWS).Select
    Set ws = Nothing
End Sub


Private Function DeleteLinksInAWS(ConfirmReplace As Boolean) As Boolean
Dim cl As Range, cFormula As String, i As Integer
    DeleteLinksInAWS = True
    Application.StatusBar = \"Deleting external formula references in \" & ActiveSheet.Name & \"...\"
    For Each cl In ActiveSheet.UsedRange
        cFormula = \"\"
        On Error Resume Next
        cFormula = cl.Formula
        On Error GoTo 0
        If cFormula <> \"\" Then
            If Left(cFormula, 1) = \"=\" Then
                If InStr(cFormula, \"[\") > 1 Then
                    If Not ConfirmReplace Then
                        cl.Formula = cl.Value
                    Else
                        Application.ScreenUpdating = True
                        cl.Select
                        i = MsgBox(\"YES : Replace the formula with the value.\" & Chr(13) & _
                            \"NO: Don\'t replace this formula.\" & Chr(13) & _
                            \"CANCEL: Quit looking for external formula references.\", vbQuestion + vbYesNoCancel, _
                            \"Replace external formula reference in \" & cl.Address(False, False, xlA1) & \" with the cell value?\")
                        Application.ScreenUpdating = False
                        If i = vbCancel Then
                            DeleteLinksInAWS = False
                            Exit Function
                        End If
                        If i = vbYes Then
                            cl.Formula = cl.Value
                        End If
                    End If
                End If
            End If
        End If
    Next cl
    Set cl = Nothing
    Application.StatusBar = False
End Function

Hvis du retter i referencen, så der kun står Ark1\'!$E$23, så vil den læse fra det aktuelle ark i stedet for en fil på c: drevet. Du kan undersøge om der nogen celler der anvender området, ved at søge efter \"Navnet\" ved at bruge søgefunktionen. Og du kan evt. slette området, hvis du ikke mener at det skal bruges til noget. (uden at gemme i første omgang - for at se hvad der sker)

Jeg kan se via PUB2000 Link finder, at det der er tale om er name link.
Desuden indeholder mit ark en masse formel link, så jeg kan ikke bare slette alle sammen

Jeg tror i har fat i det rigtige alle sammen, så jeg tildeler pointene ligeligt.

Jeg har dog endnu ikke løst problemet endnu.
Via fobians forslag med <insæt><navn><definer> har jeg fået slettet navne linkene, men der er stadigvæk file link mellem det pågældende ark og C:\\Dokumenter\\faktura.xls.

Jeg har nu prøvet at slette alt indhold på arket, alt er væk. Stadigvæk er der en file link til føromtalt fil????????????????????????
Når jeg trykker på vis udskrift bekræftes det at arket er tomt.