Macro's verwijderen formule koppelingen in Excel voor Mac

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 192895 - Bekijk de producten waarop dit artikel van toepassing is.
Zie voor een Microsoft Excel 97 en eerdere versie van dit artikel:126093.
Alles uitklappen | Alles samenvouwen

Op deze pagina

Samenvatting

Wanneer u een werkmap opent bevat die koppelingen naar een andere werkmap, Microsoft Excel wordt gevraagd als u koppelingen wilt bijwerken. Als het bestand dat de koppeling verwijst niet meer bestaat, of als deze is verplaatst naar een andere map, kunt u de koppelingen om te voorkomen dat dit bericht verwijderen.

Meer informatie

Een van de meest voorkomende typen koppeling is een koppeling formule. Een formule in een cel kan verwijzen naar een cel in een gesloten werkmapbestand. Als dat niet langer bestand bestaat, de formule is niet langer geldig. Een dergelijke koppeling verwijdert, klikt u opZoekenop deBewerkenmenu en zoek naar een uitroep teken (!). Of, als deze actie niet lukt, zoekt u een vierkant haakje sluiten ([]). Hiermee wordt elke koppeling in een werk blad weer gegeven. U kunt vervolgens aan elke cel de formule verwijderen en vervangen door de waarde in de cel gaan. De koppelingen verwijderen kan als veel cellen koppelingen bevatten, enige tijd duren. Het verwijderings proces versnellen, kunt u een van de volgende methoden te gebruiken. Macro's kunt u enkele koppelingen en andere niet verwijderen. Koppelingen in de actieve werkmap of werk mappen die geopend zijn, worden niet verwijderd.

OPMERKING: Deze macro's werken niet als het bronbestand voor een koppeling op een net werk station bevindt. Als dit het geval is, wordt de koppeling gevonden maar niet verwijderd.

Visual Basic-codevoorbeeld

Microsoft biedt program meer voorbeelden ter illustratie alleen, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend met de programmeer taal worden opgespoord en met de hulp programma's die worden gebruikt bent voor het maken en waarmee fouten in procedures. Ondersteuningstechnici van Microsoft kunnen helpen verklaren de functionaliteit van een bepaalde procedure, maar zij zal deze voorbeelden om extra functionaliteit of samens tellen van procedures om te voldoen aan uw specifieke vereisten niet wijzigen.
  1. Typ de volgende macrocode in een nieuwe module werk blad:
        Option Base 1
    
        'This macro deletes all formula links in a workbook.
        '
        'This macro does not delete a worksheet formula that references an open
        'book, for example:
        '
        '   =[Book1.xls]Sheet1!$A$1
        '
        ' To delete only the links in the active sheet, see the comments
        ' provided in the Delete_It macro later in this article.
    
        Public Times As Integer
        Public Link_Array As Variant
    
        Sub Should_Delete()
        Items = 0 'initialize these names
        Times = 0
        Link_Array = ActiveWorkbook.LinkSources 'find all document links
    
        Items = UBound(Link_Array) 'count the number of links
        For Times = 1 To Items
    
        'Ask whether to delete each link
        Msg = "Do you want to delete this link:  " & Link_Array(Times)
          Style = vbYesNoCancel + vbQuestion + vbDefaultButton2
          Response = MsgBox(Msg, Style)
          If Response = vbYes Then Delete_It
          If Response = vbCancel Then Times = Items
        Next Times
        End Sub
    
        Sub Delete_It()
        Count = Len(Link_Array(Times))
        For Find_Bracket = 1 To Count - 1
          If Mid(Link_Array(Times), Count - Find_Bracket, 1) = ":" _
          Then Exit For
        Next Find_Bracket
        'Add brackets around the file name.
        With_Brackets = Left(Link_Array(Times), Count - Find_Bracket) & _
          "[" & Right(Link_Array(Times), Find_Bracket) & "]"
    
        'Does the replace.
    
        'If you want to remove links only on the active sheet, change the
        'next two lines into comments by placing an (') apostrophe in front of
        'them as well as the line, "Next Sheet_Select", that closes the loop.
    
        For Each Sheet_Select In ActiveWorkbook.Worksheets
    
        Sheet_Select.Activate
        Set Found_Link = Cells.Find(what:=With_Brackets, After:=ActiveCell, _
                lookin:=xlFormulas, lookat:=xlPart, searchorder:=xlByRows, _
                searchdirection:=xlNext, matchcase:=False)
           While UCase(TypeName(Found_Link)) <> UCase("Nothing")
               Found_Link.Activate
    
               On Error GoTo anarray
    
               Found_Link.Formula = Found_Link.Value
    
               Set Found_Link = Cells.FindNext(After:=ActiveCell)
    
           Wend
        Next Sheet_Select 'To remove links only on the active sheet
                         'place an (') apostrophe at the front of this line.
    
        Exit Sub
    
        anarray:
        Selection.CurrentArray.Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlValues
        Resume Next
    
        End Sub
    					
  2. De macro Should_Delete uitgevoerd.
  3. Elke koppeling in de werkmap wordt geïdentificeerd en voor elke link die u bent gevraagd of u wilt dat de koppeling wilt verwijderen. Als u klikt opJa, wordt de koppeling verwijderd en de huidige cel waarde wordt opgeslagen in de cellen die eerder zijn gekoppeld.

Eigenschappen

Artikel ID: 192895 - Laatste beoordeling: donderdag 6 oktober 2011 - Wijziging: 4.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X voor Mac
  • Microsoft Excel 2001 voor Mac
  • Microsoft Excel 98 voor Macintosh
Trefwoorden: 
kbdtacode kbhowto kbmt KB192895 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:192895

Geef ons feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com