Ta bort hyperlänkar
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?
Gammal fråga utan svar, kanske inte aktuell längre men jag gör ett försöka.
Om cellen med hyperlänken heter A2 kan du i nästa kolumn B2 skriva formeln =A2
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.Ta bort formlerna genom att göra så här
Markera hela kolumnen B genom att klicka på rubriken BHögerklicka och välj "Klistra in special…"
Välj alternativet som heter "Värden" och klicka OK
Tryck sen Enter för att placera "kopieringen" på samma plats som innan
Numer pensionär i Nynäshamn

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:
- markera alla celler med hyperlänkar du vill ta bort länken på men vill behålla texten i
- Gå till Redigera menyn
- Välj Radera
- Välj Format
- Nu tas hyperlänken bort men texten är kvar

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.
- Öppna ditt dokument med dina hyperlänkar som du vill ta bort men låta texten vara kvar på
- Gå till verktyg
- Välj Macro
- Välj sedan Macron
- Ange ett namn (tex TaBortMig)
- Välj skapa
- 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.
- 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 - 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