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.
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
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.