05. juli 2002 - 10:53Der er
4 kommentarer og 1 løsning
Fjerne Ikke-eksisterende kæde
Er der nogle i denne store, vidde verden, der har oplevet at have et regneark, der rapporterer en kæde, som ikke findes???
I så fald, hvordan blev den fjernet?
Scenarie: Fra et regneark som rapporteres at have en kæde, kopieres et tomt ark til en ny projektmappe. (herefter kaldet PM1). I PM1 indsættes et diagram-ark, og det nyligt inkopierede ark1 slettes igen. Excel vil herefter rapportere at PM1 indeholder en kæde. PM1 indeholder intet kode, ingen VBA-referencer, ingen OCX-refrencer, ingen Værdier og ingen programmering. Det er med andre ord fuldstændig tomt....
Hvis nogen kan forklare dette for mig, vil jeg blive meget glad.
Der plejer altid at være én eller anden forklaring, så med mindre du har fundet en Excel-bug, er der nok en kæde et eller andet sted. Hvis du sender arket til mig, skal jeg prøve at finde den ...
Der er et skjult navn i dit ark "_Fill?" som refererer til en ekstern fil på dit H-drev.
Du kan fjerne det skjulte navn og dermed også kæden med følgende makro:
Sub Remove_Hidden_Names()
' Dimension variables. Dim xName As Variant Dim Result As Variant Dim Vis As Variant
' Loop once for each name in the workbook. For Each xName In ActiveWorkbook.Names
'If a name is not visible (it is hidden)... If xName.Visible = True Then Vis = "Visible" Else Vis = "Hidden" End If
' ...ask whether or not to delete the name. Result = MsgBox(prompt:="Delete " & Vis & " Name " & _ Chr(10) & xName.Name & "?" & Chr(10) & _ "Which refers to: " & Chr(10) & xName.RefersTo, _ Buttons:=vbYesNo)
' If the result is true, then delete the name. If Result = vbYes Then xName.Delete
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.