Je bent nu offline; er wordt gewacht tot er weer een internetverbinding is

Macro's verwijderen formule koppelingen in Excel voor Mac

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
Dit artikel is gearchiveerd. Het wordt aangeboden in de huidige vorm en wordt niet meer bijgewerkt.
Zie voor een Microsoft Excel 97 en eerdere versie van dit artikel:126093.
Samenvatting
Wanneer u een werkmap opent bevat die koppelingen naar een andere werkmap, MicrosoftExcel wordt gevraagd als u koppelingen wilt bijwerken. Als het bestand dat de koppelingverwijst niet meer bestaat, of als deze is verplaatst naar een anderemap, 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 eencel kan verwijzen naar een cel in een gesloten werkmapbestand. Als dat niet langer bestandbestaat, 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.
MacXLX XL2001 Excel 98

Waarschuwing: dit artikel is automatisch vertaald

Eigenschappen

Artikel-id: 192895 - Laatst bijgewerkt: 12/05/2015 09:18:34 - Revisie: 4.0

Microsoft Excel 2004 for Mac, Microsoft Excel X voor Mac, Microsoft Excel 2001 voor Mac, Microsoft Excel 98 voor Macintosh

  • kbnosurvey kbarchive kbdtacode kbhowto kbmt KB192895 KbMtnl
Feedback