# Ta bort hyperlänkar
Author: [Borttaget]

Jobbar i Excel och har en massa hyperlänkar i cellerna. Vill bli av med dessa, men vill så klart ha texten kvar.

Finns det inget enklare sätt än att ta bort dom en och en?

## Comment 1
Author: Margareta

Gammal fråga utan svar, kanske inte aktuell längre men jag gör ett försöka.

1.  Om cellen med hyperlänken heter A2 kan du i nästa kolumn B2 skriva formeln =A2  
    
2.  Kopiera formeln i B2 till samtliga rader i B-kolumnen som har motsvarande värden i A  
    Då får du bara namnet, men det går ännu inte att använda eftersom det är en formel under.  
    
3.  Ta bort formlerna genom att göra så här  
    Markera hela kolumnen B genom att klicka på rubriken B  
    
4.  Högerklicka och välj "Klistra in special..."  
    
5.  Välj alternativet som heter "Värden" och klicka OK  
    
6.  Tryck sen Enter för att placera "kopieringen" på samma plats som innan

## Comment 2
Author: Margareta

Min egen fråga som gjorde att jag hittade den här frågan är precis tvärtom

Jag har en kolumn med 350 rader hyperlänkar och vill komma ut [url:en](en) (webadressen) ur hyperlänken, texten som är skriven för att visa länken bryr jag mig inte om.

## Comment 3
Author: Kaj

Ett sätt som visserligen är en och en men som kan gå fortare än att högerklicka och välja ta bort hyperlänk är att ställa sig i cellen och trycka ctrl+d då försvinenr länken och texten är kvar.  
Sedan är det bara att med piltangenten söka upp nästa och göra samma sak.

Ett annat bättre sätt är:

1.  markera alla celler med hyperlänkar du vill ta bort länken på men vill behålla texten i
2.  Gå till Redigera menyn
3.  Välj Radera
4.  Välj Format
5.  Nu tas hyperlänken bort men texten är kvar

## Comment 4
Author: Kaj

Om dina hyperlänks celler är många och ligger på olika cell serier eller utspridda kan det vara tidskrävande att söka upp och markera alla cellerna. Följande macro gör jobbet åt dig.

1.  Öppna ditt dokument med dina hyperlänkar som du vill ta bort men låta texten vara kvar på
2.  Gå till verktyg
3.  Välj Macro
4.  Välj sedan Macron
5.  Ange ett namn (tex TaBortMig)
6.  Välj skapa
7.  I fönstret som nu kommer upp rensa allt (Dvs även tabortmig subben) och klistra nedanstående kod, sedan från Arkivmenyn väljer du sedan Stäng och gå tillbaka till Microsoft Excel.
8.  Detta skapar 4 macros åt dig  
    **DeleteAllHyperlinks** = tar bort alla hyperlänkar i bladet  
    **ReportAndDelteHyperlinks** = Låter dig välja ja/nej för varje förekomst av en hyperlänk  
    **ReportHyperLinksLocation** = ger en popup ruta med cell adress till varje hyperlänk  
    **SelectAllHyperlinksCells** = markerar alla celler som har en hyperlänk
9.  För att köra macrona på ditt excel blad går du återigen till Verktyg, Macro, Macron och väljer den som passar dig bäst.

 'This Sub procedure deletes all hyperlinks in the active worksheet.  
      Sub DeleteAllHyperlinks()  
          For Each xLink In ActiveSheet.Hyperlinks  
              xLink.Delete  
          Next xLink  
      End Sub  
  
      'This Sub procedure displays a series of message boxes indicating  
      'the location of each hyperlink in the active worksheet.  
      Sub ReportHyperlinkLocations()  
          For Each xLink In ActiveSheet.Hyperlinks  
              MsgBox xLink.Range.Address  
          Next xLink  
      End Sub  
  
      'This Sub procedure identifies each hyperlink and asks if you want  
      'to delete it. If you click Yes, the hyperlink is deleted.  
      Sub ReportAndDeleteHyperlinks()  
          For Each xLink In ActiveSheet.Hyperlinks  
              Response = MsgBox("Delete hyperlink in cell " & \_  
                  xLink.Range.Address & " ?", vbYesNo)  
              If Response = vbYes Then xLink.Delete  
          Next xLink  
      End Sub  
  
      'This Sub procedure selects all cells in the worksheet that contain  
      'hyperlinks. You can then clear the selected cells to delete all of  
      'the hyperlinks.  
      Sub SelectAllHyperlinkCells()  
          FirstCell = 1  
          For Each xLink In ActiveSheet.Hyperlinks  
              If FirstCell = 1 Then  
                  Set xRange = xLink.Range  
                  FirstCell = 0  
              Else  
                  Set xRange = Application.Union(xRange, xLink.Range)  
              End If  
          Next xLink  
          xRange.Select  
      End Sub