Avatar billede xelor Nybegynder
05. juli 2002 - 10:53 Der 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.
Avatar billede janvogt Praktikant
05. juli 2002 - 11:18 #1
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 ...

janvogt@esenet.dk
Avatar billede janvogt Praktikant
05. juli 2002 - 11:36 #2
Stephen Bullen har et ark på sin hjemmeside til at finde/fjerne links:
http://www.bmsltd.co.uk/MVP/MVPPage.asp
Avatar billede janvogt Praktikant
05. juli 2002 - 13:09 #3
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

          ' Loop to the next name.
      Next xName

  End Sub
Avatar billede gider_ikke_mere Nybegynder
12. august 2005 - 14:33 #4
janvogt: Dit link peger på en pornoside!
Avatar billede tobler Nybegynder
12. august 2005 - 15:38 #5
Stephen's side findes idag her: http://www.oaltd.co.uk/Excel/Default.htm
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester